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Private Sub txtWholesale_LostFocusO 
Dim MyAnimal As CEndangeredSpecies 
Set MyAnimal = New CEndangeredSpecies 
MyAnimaLAnimalName = txtAnimal.Text 
MyAnimal.Weight = txtWeight.Text 
MyAnimal.WholesalePrice = txtWholesale.Text 



MyAnimal.Calculate 



txtShipping.Text = MyAnimal.Shipping 
txtRetail.Text = MyAnimal.RetailPrice 




End Sub 



Page 28. Learn the differences between Visual Basic and the 
programming language you might be migrating from. For example, 
VB 's integrated development environment lets you create breakpoints 
with a single click. 
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FREE CODE ONLINE 

GS198: All the listings printed in this magazine a 



1 the associated code files, in one ZIP file. 
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r« DBGS198: "Build a Database for Your 
i Videotape Collection" 



DBGS198 



J 



Please see the Code Online boxes at the end of the articles for details on the files. 




Page 46. Create 
forms that let you 
add, update, and 
delete records in a 
database that keeps 
track of your audio 
and videotape 
collection. 



Page 92. 

Using VBA and this 
handy object 
model, you can 
program the Office 
97 Office Assistant, 
that souped-up 
Windows message 
box with sounds 
and a cutesy face. 
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• Free Access to The Development 
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Now's the Time 



EDITOR'S NOTE 






JEFF HADFIELD 



Get started now: software 
development tools have 
never been more powerful 
or more accessible. 



What does it take to be a 
Visual Basic program- 
mer? Well, any savvy 
computer user can open 
the box, install the soft- 
ware, and maybe even 
write a few lines of code 
that'll perform some 
amusing task. But for 
real, professional devel- 
opment, you'll need more than that. 

To be a real, professional Visual Basic pro- 
grammer, you'll need perseverance, skill, and 
experience. Each of these is within your grasp. To 
the beginning VB programmer, perseverance 
means patience. Today's powerful software pro- 
gramming tools mask the complexities of Win- 
dows and of programming behind quick-start, 
easy-to-use interfaces. That you're shielded from 
the inner workings of language and operating 
system is a recipe for discouragement: just be- 
cause your programming environment seems 
easier to use doesn't mean it automates the high- 
level work of intelligent planning and coding. But 
don't give up (persevere!). VB's combination of 
power and approachability gives you the free- 
dom to concentrate on what's important: design- 
ing and building usable, maintainable apps. And 
in this issue of Getting Started with Visual Basic 
(GSVB), we're giving you a head start on using VB 
the right way, whether you're new to program- 
ming or just new to VB. 

We're also providing what we think is the right 
combination of how-to information to build your 
VB skills. As you proceed with your VB education, 
you'll develop key abilities to help you build apps 
that provide real-world solutions. You might de- 
velop apps that help mobile or desktop users get 
and share information. Or you might build server- 
side projects. No matter what you develop, the 
best way to build your skills is through practice. 
That's why we've spent as little time as we possi- 
bly could explaining how VB works. Instead, bring 
this magazine to your computer, open it to an 



article, and get ready to try the techniques and 
projects we describe. When you're finished with 
this issue, you'll have built real, working apps — 
and developed crucial VB skills to boot. 

But we're not fooling ourselves: you can't claim 
years of experience just because you tried the 
projects in this issue. But you can claim that 
you've taken advantage of years of VB experi- 
ence. We've brought together leading experts 
that know how to give you exactly the information 
you need to avoid common pitfalls and make your 
efforts more effective. And that's what experi- 
ence is all about: knowing the right tools and 
techniques to apply when it matters most. 

To help you learn more about tools and tech- 
niques, you'll also find additional resources in 
this issue of GSVB. Of course, we hope you 
subscribe to this and our sister publication, 
Visual Basic Programmer's Journal, visit our Web 
site (http://www.windx.com), and so on. But our 
list of resources extends beyond our corporate 
walls. For help in choosing the right tools, look to 
our "Resources for Learning" and "Third-Party 
Products" sections to find listings of hand-picked 
books, VB add-ons, Web sites, and more. These 
resources will help you not only learn more 
about VB, but also leverage your skills and ex- 
tend your experience. 

In short, a good, professional VB programmer 
requires perseverance, skill, and experience — 
and you hold the key to all of these. Now's the time 
to dive into VB. You're between major releases of 
operating systems and development tools. You're 
at a perfect juncture in software development: 
innovation hasn't slowed, but the furious update 
and release schedule has. You've got time, now, 
to get up to speed on VB, 32-bit Windows develop- 
ment, database connectivity, ActiveX compo- 
nents, and more. As 1998 rolls on, keep on top of 
new developments, including updates to the ma- 
jor Web browsers, Windows 98, and the eagerly 
anticipated Windows NT 5.0. But before we get 
there, take the time — make the time — to start on 
the path to VB mastery. ■ 
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Introduction to Visual Basic 5.0 



Part 1 



VB Basics 



VB can be your key 
to enter any 
programming arena, 
whether ifs database, 
Web, or component 
development. 

Editor's Note: This article is divided into 
two distinct sections: Part 1 introduces you 
to Visual Basic 5. 0, providing background 
on and a history of the language; and Part 
2 takes you on a guided tour through the 
VB5 development environment. 

Nearly everyone in the program- 
ming world had already written 
off the Basic language at the 
time Visual Basic 1.0 made its 
debut. Basic was too clunky, too un- 
structured, and too inefficient for mod- 
ern applications, according to the con- 
ventional wisdom of the time. But VB1 
changed these perceptions, proving that 
any smart user could build real Win- 
dows applications. 

Visual Basic 1.0 made two critically 
important statements on behalf of 
would-be Windows programmers. First, 
it established once and for all that you 
could build serious programs using vi- 
sual design tools. In fact, it demonstrated 
that an interactive graphical program- 
ming interface, such as the one pro- 



vided by VB, is the only sensible way to 
build Windows applications. Second, it 
drove home the point that only two- 
year-olds insist on doing everything 
themselves. 

Visual Basic has allowed develop- 
ers to extend its capabilities with cus- 
tom controls since it first debuted. 
These custom controls cost a nominal 
amount of money and can save you a 
tremendous amount of time. For ex- 
ample, you don't have to program 
spreadsheet, reporting, and graphing 
capabilities to your apps. You can buy 
them — and spend your time adding the 
business logic your organization needs. 

VB1 's capabilities were exciting, but 
Visual Basic has grown in power and 
scope with each new version. Version 
2.0 added Open Database Connectivity 
(ODBC) database access, plus exten- 
sive performance enhancements. Ver- 
sion 3.0 added native database access 
in the form of the Jet database engine, 
plus extensive OLE support on the cli- 
ent side. Version 4.0 took Visual Basic 
into the world of 32-bit computing. It 
provided the tools necessary to build 
true Windows 95 applications, as well 
as support for simultaneous develop- 
ment of 16- and 32-bit applications, re- 
usable class modules, the ability to 
build OLE Automation servers, and a 
range of enterprise computing features. 
Version 5.0, the current version, adds 
more robust object-oriented features, 
the capability to build ActiveX con- 
trols and Active Documents, numerous 
Internet-oriented capabilities, and — at 
last — a native code compiler. 

As important as these developments 
have been, VB's competitors have met 



or bettered nearly every one of them 
over the years. Other development 
tools provide equally effective form de- 
signers, database-access capabilities, 
and system-automation facilities, but 
Visual Basic remains the one to beat, 
and its competitors remain also-rans. 

VB REMAINS A MOVING TARGET 

One reason for VB's success is that it's 
always been a moving target. Visual 
Basic has played many roles since its 
debut as a standalone, general-purpose 
development tool. For example, it is 
also a tool for linking and automating 
Microsoft Office applications, a tool 
for building middleware servers in mul- 
titiered enterprise information sys- 
tems, and, more recently, an intranet/ 
Internet development tool. It's hard for 
competitors to keep up. 



Francesco Balena adapted this article from 
Paul Bonner's "VB 4.0 for Every one "/Write 
Your First Program with Visual Basic, 
Winter 1997]. 

Francesco Balena is publisher and editor 
ol 'Visual Basic Journal, the Italian licensee 
o/'VBPJ, and cofounder of Software Design, 
a software firm specializing in VB and VC++ 
add-ons, training, and consulting. He has 
written several books in Italian on DOS, 
QuickBasic, and VB, and is a coauthor of 
Platinum Edition Using Visual Basic 5 (Que ). 
Contact Francesco at fbalena@infomedia. it. 

PaulBonneris an independent systems 
consultant specializing in document auto- 
mation and Internet publishing issues. He 
is a frequent contributor to a variety of 
publications, including Windows Sources 
and PC Magazine. Reach Paul at 
76000. 13@compuserve.com. 



http://wvmw.windx.com 



8 SPRING 1998 Getting Started with Visual Basic 



Introduction to Visual Basic 5.0 



Part 1 



Figure 1 . Sun Yourself Under the VBA Umbrella. Visual Basic for Applications (VBA) 
is the overriding, or topmost, language in the Visual Basic hierarchy. This language is 
contained in a wide variety of Microsoft products, as well as third-party products that 
license VBA. Visual Basic 5 and VBScript are subsets of VBA. 



Visual Basic for Applications (VBA) 




Microsoft Products 

Visual Basic 5 Third-Party 
Excel 97 Products 
Word 97 that License 

Access 97 vbA 

PowerPoint 97 






VBScript 





Another reason for VB's success is 
that it remains central to Microsoft's 
strategy for Windows development. 
Many industry observers agree that VB 1 
played a key role in the acceptance of 
Windows 3.0 itself because it helped 
Microsoft create a huge number of busi- 
ness applications for that operating sys- 
tem. Microsoft apparently learned its 
lesson, and since then it has used VB to 
pioneer many new programming tech- 
nologies. For example, VB4 program- 
mers could remotely activate their OLE 
components located on other machines 
more than a year before other Win- 
dows developers acquired this ability 
with DCOM in NT 4.0. Another example 
of this pioneering technology is com- 
ponent creation. Today, most program- 
ming languages permit you to build 
COM components, but none matches 
VB's simplicity and ease-of-use in cre- 
ating these components. 

Visual Basic has also overcome a 
number of its early limitations. For a 
long time, users were critical of VB 
because it relied on inefficient p-code 
applications rather than fast native 
code. This defect has been fixed with 
Visual Basic 5.0, which uses the same 
compiler technology as the Visual C++ 
compiler. This innovation has narrowed 
VB's performance gap with C/C++, as 
well as other compiler-based languages 
such as Borland's Delphi. The inclu- 
sion of a compiler has also helped to 
establish VB as a viable programming 
tool for tasks that were once deemed to 



be outside its reach. For example, VB is 
now a viable solution for writing math- 
intensive scientific software, multime- 
dia applications, and advanced client/ 
server solutions. Ironically, VB made 
these changes even as Java, another p- 
code-based language, exploded on the 
scene. But that's another story. 

Another crucial factor to VB's suc- 
cess has been Microsoft's implementa- 
tion of the Basic language. Microsoft 
originally named the language engine 
Visual Basic, but renamed it in VB4 to 
Visual Basic for Applications (VBA). 
Microsoft did this to reflect the fact 
that VB is a standalone implementa- 



http:// www.windx.com 



tion of the same VBA language that 
serves as the script language for 
Microsoft Access and Microsoft Office 
applications (see Figure 1). Today, 
some relatively minor differences in 
the VBA used by various Microsoft 
products necessitate multiple versions 
of VBA's core files. From the 

hard work, no 
programming 

developer's standpoint, however, the 
two versions of the languages work 
identically. It is expected that these 
differences will be eliminated in future 
versions. 

VB SHARES BASIC'S STRENGTHS 

Whatever its name, VBA's greatest 
strength is that it is built on Basic — the 
same Basic language most considered 
dead and buried 10 years ago. Of course, 
it isn't quite the Basic you might have 
studied in school. Line numbers and 
other vestiges of Basic's heritage as an 
unstructured, procedural language are 
a thing of the past. In their places are 



new elements that allow VBA to flour- 
ish in an event-driven environment such 
as Windows. For example, VBA lets you 
create, interact with, and manipulate 
objects ranging from simple buttons to 
complex user-defined class objects, as 
well as ActiveX controls and compo- 
nents. The core language syntax is rela- 
tively unchanged, but nearly every line 
of code invokes or makes use of object 
properties and methods, so complete 
VBA routines bear little resemblance 
to routines written in earlier incarna- 
tions of Basic. 

Nevertheless, VBA is Basic, and this 
has two important ramifications. First, 
it retains the English-like syntax that 
has always made Basic one of the easi- 
est languages to learn. There is a lot to 
learn with any programming language, 
but gaining the necessary knowledge is 
easier in Basic and VBA because you 
can read and understand many of its 
commands and statements fairly 
easily: 

Print "Welcome to Visual Basic " 
X - X + 1 

IfMyPet$= "Cat" Then Say "Meow" 
MyButton. Caption - "ClickMe!" 

OK, so no one will mistake these 
lines for Dr. Seuss's best work, but the 
meaning of each line is clear. VBA's 
simple syntax eliminates one of the 
biggest hurdles faced by anyone learn- 
ing to program: the mental gyrations 
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matter which 
tool you use. 



the arcane syntax preferred by most 
programming languages. 

VBA's other big advantage is that it 
is much more interactive than the aver- 
age development tool. When you work 
with a language such as Pascal or C++, 
you must compile your entire program 
before you can test it and discover 
errors in your code. But Visual Basic 
checks the syntax of each line of code 
as you enter it, and highlights any syn- 
tax errors as soon as you press return. 
It also allows you to launch and run 
your program at any time without go- 
ing through a lengthy compilation 
process. 

This approach encourages a more 
interactive development process. You 
can write a few lines of code, run your 
application to see how well the new 
code performs, and then go back to the 
code window and make more changes. 
It mitigates the feeling that you must 
write as much code as you possibly can 
between compilations. 

Visual Basic also inherits Basic's 
unique ability to stop a program at any 
point, examine and modify program 
variables and/or program code, and 
then restart the program from where 
you left off. This ability is a tremen- 
dous help whether you're a beginner 
trying to figure out how the language 



works or an expert trying to see what's 
happening inside your program. It also 
allows you to play "what if" with your 
code in ways that are difficult, if not 
impossible, when a full-scale compila- 
tion stands between you and the ability 
to make changes to your code. 

Don't be misled by this talk of ease- 
of-use, however. Visual Basic is easier 
to use than any other full-featured 
development tool, but this doesn't 
make it child's play. Tasks developers 
regularly perform with VB 5.0 — build- 
ing ActiveX components and controls, 
interacting with objects and databases 
on remote servers, seamlessly auto- 
mating Office applications, and vari- 
ous tricks that seemed miraculous five 



complex technologies. 

Visual Basic does a great, often amaz- 
ing, job of reducing the complexity, but 
it can't eliminate it entirely. For ex- 
ample, C/C++ programmers who want 
to know everything about creating COM 
objects have thousands of pages of 
documentation to master. VB 5.0 pro- 
grammers must understand a few class 
module settings and the single step 
involved in making procedures public. 
It's less work, but it still takes some 
effort, and your COM servers won't 
work unless you put in the effort. 

EXTEND VB TO INFINITY 

Writing code is hard work, no matter 
which programming tool you use. VBA 
can also be code intensive, so you've 
got a lot of work ahead of you if you 
intend to write a major application 
entirely in VB. In the past, Visual Basic 
programmers faced the two issues that 
were considered the worst defects of 
this language: the sluggishness of com- 
plex form loading and the less-than- 
blazing performance of VB's pseudo- 
compiled code for heavy-duty data- 
crunching tasks. Fortunately, both is- 
sues have been fixed in the latest ver- 
sion of the product. 

Microsoft addressed slow form 
loading by giving VB5 a new and more 



efficient forms engine, and adding the 
support for slimmer ActiveX controls 
that are instantiated much faster than 
"old" OCX controls. 

It also added native code compila- 
tion, which speeds up certain tasks. 
But it might surprise you to learn that 
you still have the option of compiling 
to p-code, also known as pseudo-code. 
P-code is often as fast as native code 
because many programs typically 
spend most of their time outside the 
main application. For example, redraw- 
ing forms is handled by Windows DLLs, 
and running queries takes place inside 
the database engine, be it the Jet En- 
gine or SQL Server. The overall perfor- 
mance simply doesn't depend on the 



to generate the main application in 
these cases. 

Pseudo-code actually has a few ad- 
vantages over native code. It tends to 
produce smaller applications that load 
faster and can be downloaded more 
quickly. This is a tremendous asset 
when creating applications for the 
Internet. 

VB5 is also a strong tool for writing 
Internet-oriented applications. One 
cool feature is that it allows you to add 
intelligence to an HTML page by creat- 
ing an ActiveX control, which is often 
simply a matter of placing a few con- 
stituent controls on a UserControl 
module, and running a wizard to add 
properties and methods. I have built 
many tiny, useful ActiveX controls in 
15 minutes or less, and I doubt there is 
another programming language that 
would make me more productive in 
this area. 

You aren't confined to using ActiveX 
controls, either. Active Documents al- 
low you to build programs that run 
inside a browser. A significant draw- 
back to Active Documents is that they 
only run inside Internet Explorer, which 
severely limits their usefulness on Web 
sites. If you create an intranet-based 
app, however, you have much more 
control over the configuration of your 
clients, and Active Documents give you 
an effortless way to port your existing 
VB apps to an intranet. 

ActiveX controls offer yet another 
exciting opportunity even if you aren't 
currently developing for the Internet. 
This is because the controls let you 
encapsulate one or more controls, and 
all their related logic, into a reusable 
component that you can drop onto a 
form as easily as you do intrinsic and 
other controls that come with the Vi- 
sual Basic package. 

WORK AROUND VB'S SHORTCOMINGS 

This capability enables you to work 
around a few shortcomings of the lan- 
guage itself. For example, it takes only 
five minutes to design a UserControl 
that binds a group of Option Button 
controls to a database field — a capabil- 
ity VB doesn't offer on its own. Simi- 
larly, it takes only a few minutes to 
build a scrollable picture box or a cus- 
tomized gauge. Keep in mind that you 
can immediately reuse VB-authored 
ActiveX controls in a number of other 
environments and languages. You can 
also make money by selling controls to 
other programmers. 

Note that there are some rough 
edges to VB5's ActiveX control creation 
capabilities. If you intend to develop 
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VBA routines bear little 
resemblance to routines 
written in earlier incarnations 
of Basic. 



spreadsheet or a charting product, you 
must learn many low-level details about 
Windows and COM programming. It 
honestly won't make much difference 
in the end which language you choose. 

But why re-create code that some- 
one else has already perfected and 
wants to sell to you cheaply? From the 
beginning, VB's most important contri- 
bution to the sanity and efficiency of 
programmers has been its extensibil- 
ity. This extensibility first appeared in 
the form of proprietary custom con- 
trols, and now includes clients for in- 
dustry-standard OLE (ActiveX) objects 
and servers. The first add-ons, VBXs, 
simply made up for deficiencies in VB's 
capabilities, and provided VB program- 
mers with access to 3-D controls and 
grids, as well as various API functions 
left out of VB's command set. Such 
controls served a purpose then, and 
continue to do so. No one would build 
a spreadsheet in VB code when it's so 
easy to embed an Apex TrueGrid, a 
Visual Components Formula One 
worksheet, or even an Excel worksheet 
in a VB form. 

Of course, more experienced VB pro- 
grammers know that occasionally 
making a one-line API call or writing a 
few lines of code can speed your 
application's performance and elimi- 
nate the need for a 500K control, but 
such add-in components greatly 
shorten the path to efficient develop- 
ment in VB. 

Today's best add-in components do 
more than provide access to the but- 
ton styles that Visual Basic's designers 
forgot to include. They encapsulate 
and provide access to new areas of 
technology. Consider an imaging com- 
ponent such as LEAD Technologies' 
LEADTOOLS, which incorporates 
nearly every conceivable image-edit- 
ing, manipulation, compression, format 
conversion, and special effects func- 
tion. It would take years to develop the 
skills and knowledge that went into 
producing these capabilities yourself, 
yet you can make use of any of them 
within minutes by adding the 
LEADTOOLS OCX to a project. 

Or consider Artisoft's stunning Vi- 
sual Voice, which makes a complete 
range of telephony and integrated voice 
response and messaging capabilities 
available to applications, while extend- 
ing the VB development environment 
with a remarkable flowchart-based de- 
sign tool. Telephony is weird science 
at best, full of rituals and requirements 
unknown to anyone who hasn't studied 
its secrets. But applications such as 
Visual Voice make it possible for any- 



ity telephony applications almost im- 
mediately. 

The best part is that you get a num- 
ber of reusable controls for free. If you 
press Ctrl+T while in the Visual Basic 
Integrated Development Environment 
(IDE), you'll see a list of ActiveX con- 
trols, some of which have been installed 
by other applications, and you can re- 
use these controls in your own applica- 
tions — provided there aren't licensing 
restrictions, of course. For example, 
SHDOCVW.ocx ships with Microsoft 
Internet Explorer, but you can use it to 
embed browsing capabilities in your 
custom apps. 



mation server, including tiny special- 
purpose servers built in VB or C++ and 
huge standalone programs such as 
Microsoft Excel and other Office appli- 
cations. As far as VB is concerned, a 
little button control and a huge Excel 
worksheet are no more than objects to 
be manipulated. They both have prop- 
erties that VB can read and write, and 
methods that VB can call. You can also 
create Automation servers (ActiveX 
components, according to the new nam- 
ing standard) that wrap up all the spe- 
cial business rules or procedures used 
within your organization, making these 
rules and procedures available to any 
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hy re-create code that 
someone else has already 
perfected and wants to sell 
to you cheaply? 



MIX AND MATCH COMPONENTS 

You might wonder why anyone would 
want to use LEADTOOLS for imaging 
when so many fine imaging tools are 
available, or why anyone would use 
Visual Voice to build telephony appli- 
cations when dedicated telephony de- 
velopment systems have longer track 
records and a single-minded focus on 
telephony issues. But if you base your 
development on a dedicated and pro- 
prietary system or on a standalone tool, 
you are entirely dependent upon the 
maker of that system or tool to provide 
every single capability that you might 
ever need to add to that application. 

VB allows you to mix and match com- 
ponents almost at will. This means you 
don't have to wait for the vendor of your 
proprietary telephony system to get 
around to adding image conversion func- 
tionality, or your image application ven- 
dor to master telephony if you need both 
these capabilities. Instead, you can sim- 
ply weave together an application that 
uses LEADTOOLS for the image conver- 
sions, Visual Voice for the fax interface, 
VB's Remote Data Object component for 
database functionality, and other compo- 
nents as needed. 

You're also not limited to ActiveX- 
based components as you pursue the 
"build it with components" strategy. 
Visual Basic can interact with, auto- 



VB app. Indeed, any tool that can inter- 
act with OLE Automation servers, in- 
cluding the VBA script language used 
in Excel, Access, and other tools, can 
manipulate these servers. 

The ubiquity of VBA throughout 
Microsoft's Office applications only 
hints at VB's final advantage against all 
competitors: VBA is everywhere. When 
you learn to write programs in Visual 
Basic, you're not just mastering a single, 
standalone development tool. You're 
also learning to build Automation ob- 
jects that any OLE Automation client 
application can use, and to write pro- 
grams in the VBA language used by Ex- 
cel, Access, Word, PowerPoint, and 
other applications that license the VBA 
language from Microsoft, such as 
Autodesk's AutoCAD. Microsoft has li- 
censed VBA to about 100 software com- 
panies so far, and you can expect this 
list to continue to grow. 

You're even learning how to build 
smart Web pages when you learn VBA. 
These Web pages use the client-side pro- 
cessing capabilities of the VBScript 
scripting tool, which just happens to be 
a subset of VBA that is built into 
Microsoft's Internet Explorer 3.0 and later 
versions . In other words , you're learning 
to use the most powerful, wide-ranging 
development tool available today. 

Convinced? OK, then let's get started. M 
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by Francesco Balena and Paul Bonner 



Q The Main MDI Window. Visual Basic 
5.0 defaults to a Multiple Document Inter- 
face (MDI) window when you launch it. 
This window incorporates VB's menu bar, 
toolbar, and a number of dockable child 
windows. You control which child win- 
dows dock and which float freely inside 
the main window. Simply right-click on a 
window to bring up a popup menu, then 
turn the Dockable command on or off. 

Note that you can also start VB5 in 
Single Document Interface (SDI) mode. In 
this mode, main window does not work as 
a container for other windows. All previ- 
ous versions of VB used SDI mode. Find 
the option for setting SDI mode in the 
Advanced Tab of the Options dialog box 
located in the Tools menu (see Figure 1). 

QlTie Project Explorer Window. The 

Project Explorer window lists and provides 
access to all the components in the current 
project. The kind of components it lists de- 
pends on the project type you select at 
startup. Forms, standard modules, and class 
modules comprise the most common types 
of components. You can also create 
UserControl modules (for building ActiveX 
controls), UserDocument modules (for build- 
ing Active Documents), ActiveX Designer 
modules (special types of modules that pro- 
vide a visual interface to objects), and re- 
source files (modules that include strings, 
bitmaps, icons, and other data needed by 
the application at run time). VB5 also sup- 
ports multiple projects in the environment. 

Q The Startup Form. Double-clicking on 
the name of a form in the Project Explorer 
window shifts the focus to the default 
form VB creates when you fire it up. This 
window represents a window in your ap- 
plication, and it is empty at startup. Your 



task is to place one or more controls on 
the form that make it do something. 

riThe Toolbox Window. You find the 
controls to place on a form in the Toolbox 
window. This window includes all the in- 
trinsic controls provided by VB (see the 
sidebar, "Master VB's Intrinsic Controls"), 
as well as any ActiveX controls that you 
have added to it previously. Visual Basic 
comes with many external ActiveX con- 
trols, including two grids, a charting con- 
trol, an enhanced text box with masking 
capabilities, and a control that acts as a 
bridge for the so-called Windows Common 
Controls (TreeView, ListView, Toolbar, 
StatusBar, and so on). After you select a 
control in the Toolbox window, you can 
drop it on a form, move it, or resize it at 
will. You can also use the commands in the 
Format menu to align and resize a group of 
controls in one operation. 

Q The Properties Window. The Proper- 
ties window lets you modify the proper- 
ties of the control currently selected on 
the form. The form itself and each control 
that you place on it expose a number of 
properties, such as Name, Height, and 
Width. You can modify most of these 
properties by clicking on the appropriate 
field. For example, you can modify the 
text that appears in a push button by 
selecting the Caption property and over- 
writing the default "Command 1" string. 
Note that you use the Caption property 
for display purposes only. The button's 
name remains "Command 1 " until you spe- 
cifically change its Name property. 

Most properties, such as ForeColor and 
Style, affect the runtime appearance of the 
control. Other properties, such as Enabled 
and OLEDropMode, affect the control's 



behavior. The properties you set in the 
Property window reflect the state of the 
control when the program begins its ex- 
ecution, but you can change them at run 
time by using the appropriate statements: 

Command 1 .Capti on - "CI i ck Me" 

Some object properties can be read or 
changed only at run time. For example, 
you cannot change a directory list box's 
Path property at design time, so it doesn't 
appear in the Properties dialog. Con- 
versely, you can use the Properties win- 
dow to set a list box's MultiSelect prop- 
erty at design time, but you cannot modify 
this property at run time through code. 

5 Event Procedures. Placing controls on 
a form does not create an application. You 
have to write code to make the controls do 
something. You add code to a control by 
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Explore YourWorld. This is how the VB IDE appears by default when you first launch VB. You need to know your environment before 
you can get down to the serious business of programming. The time you spend taking this tour and familiarizing yourself with what VB 
has to offer can save you countless hours later. 



double-clicking on it. Visual Basic then opens 
the code window associated with the form, 
and places the blinking caret within a pair of 
statements that it creates automatically. 

It is important to understand how VB 
associates code with windows and the 
components they contain before you actu- 
ally write any code for the controls. There 
are two combo boxes in the upper portion 
of any code window associated with a 
form. The first combo box includes all the 
controls placed on the form, as well as the 
form itself. The other combo box lists 
events each control can raise. For example, 
select the "Forml" object from the combo 
box, then click on the second box. This 
brings up a drop-down list of events for the 
Form object. You can use these events to 
write custom responses for a particular 
control. Some of procedures listed, such 
as the Click and MouseMove events, are 
user-initiated. Windows initiates other pro- 
cedures such as the Paint event, which 
occurs when the form receives notifica- 
tion that it needs to repaint its display. 



Visual Basic provides default responses 
for all these events, but its default re- 
sponse is usually to ignore an event. You 
won't write many interesting applications 
if you follow VB's default responses alone. 
Fortunately, you can override the default 
response by selecting the desired event, 
then entering code that VB executes when 
the event occurs. 

A Click event is raised when the user 
clicks on a button. You can respond to it by 
inserting appropriate code between the 
two lines of code VB generates for you: 

Pri vate Sub Commandl_Cl ick( ) 

End Sub 

For example, you can enter this 
command on the blank line between 
the statements: 

Msgbox "Hel lo World" 

It might not look like much, but this 



single line is enough to create your first 
custom VB application. Press the F5 key 
(or select the Run-Start command from 
the menu bar) to execute the program. 
The VB environment switches automati- 
cally from design-time mode to runtime 
mode and displays a message box with 
the statement, "Hello World." You inter- 
act with the program exactly as your 
customers will. 

One difference between you and the 
end user is that you can count on sev- 
eral tools to ease the process of finding 
and solving all the errors in your code. 
You revert to design-time mode by click- 
ing on the OK button in the message 
box, then closing the Forml form or 
issuing a Run-End command from the 
main menu bar. 

MsgBox is a VBA command that instructs 
VB to display a standard Windows message 
box on the screen. "Hello World" is a com- 
mand argument. Command arguments pro- 
vide each VB statement with the information 
it needs to carry out the tasks they were 
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The VB Zone: 
www.vb-zone.com 



The C++ Zone: 
www.cplus-zone.coi 



Each DevX Zone 
is a Web site, 
targeting your 
specific informa- 
tion needs for 
techniques and 
tools, from VB to 
Java, from C++ 
to SQL. 



magazines 



I Jav^ Fro 

1 ef erence 

Prodwi Guide 
Book. Guid* 
VBA Objects 
Event Calendar 



marketplace 
c are erlink 
conferences 
ask the pros 



Download^ 
Teoh Tip ? 
Links 

Ft.-.H.,rr E>:y>:v/; 

International 

communi ty 

U:-i Giow i 
BBS and Chat.- 



See Visual InterDev at VB ITS *98 San Francisco 

Mark pour calendar for March 23-27, 1998, for VBITS SF '98. We've 
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The Java Zone: 
www. java-zone. com 



The Enterprise Zone: 
www. enterprise-zone, com 




It's all here on 
The Development 
Exchange (DevX) 

DevX's family of Web sites is your 
most comprehensive source for 
programming information available. 

Get immediate access to essential 
tools, code, and resources aimed at 
helping you solve your toughest 
programming challenges. And now, 
whether you're undertaking intranet 
solutions with Java, end-user appli- 
cations with VB, or ISV products 
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Figure 1 . Control Your Environment. You can control much of the functionality of your project and the VB environment from these 
dialogs. For example, you select which controls are shown in the Toolbox from the Components Dialog in the Project menu (M); you select 
which external libraries your program recognizes in the Project menu 's References dialog (N);you set all the attributes of the program under 
development in the Project menu's Properties dialog (O); and you set the attributes of the VB environment itself in the Options dialog in 
the Tools menu (P). 



designed for. In this case, the command 
argument tells the MsgBox statement what 
information to display in the message box. 
The VBA language includes hundreds of 
different commands, but you don't need to 
remember the correct syntax for all of them. 
As soon as you type a space after MsgBox or 
another command, VB pops up the Quick 
Info window, which summarizes the syntax 



and the meaning of each argument that you 
must include in the command argument. 

0The Object Browser. Building a real- 
world, commercial VB application in- 
volves creating dozens of modules, and 
hundreds (or even thousands) of distinct 
units of code (procedures). It can be diffi- 
cult to find a particular section of code 



simply by searching for it. Fortunately, 
you can press F2 to invoke the Object 
Browser, which shows you the modules 
defined in your application and the list of 
procedures contained in each module. 
You can open the code window right on 
the procedure you want simply by double- 
clicking on the procedure's name in the 
right-most pane. 
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f!l The Immediate Window. Visual 
Basic's ability to break into a running 
program and even change the value of its 
variables or control and form properties 
simplifies debugging immeasurably. For 
example, run the Hello World program, 
then press Ctrl+Break and click on the 
Immediate window to move the blinking 
caret there. You can now display the 
value of a property by typing this simple 
statement and pressing the Enter key: 

Print Commandl .Capti on 

The answer, "Commandl," appears im- 
mediately beneath your command. Simi- 
larly, you can modify a property by execut- 
ing an assignment command in the Imme- 
diate Window: 

Commandl . Capti on - "Say Hel 1 o" 

This command modifies the button's 
caption, but doesn't affect any other prop- 
erty. No matter what the caption 
clicking on the Comma 
the m—" 
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Master VB's Intrinsic Controls 



Intrinsic controls are the controls that 
appear in the Toolbox when you ini- 
tially launch VB. They are also in- 
cluded in VB's runtime library, which 
you deliver with your VB applica- 
tions. This means that you don't need 
to distribute additional files if you 
rely exclusively on intrinsic controls. 
It also means that your software can 
download faster, and you don't have 
to worry about installing or register- 
ing additional ActiveX controls. 

The most widely used intrinsic con- 
trol is the TextBox control. This con- 
trol is an edit Held for the user to type 
a string of characters into. You can set 
the control to a maximum length 
(MaxLength property), create 
multilined fields fM« ,t!,s e and 
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The CheckBox and OptionButton 
controls give the user a way to make 
simple selections using the mouse. 
CheckBox controls are suitable for On/ 
Off or True/False fields, and a group of 
OptionButton controls proves ideal 
when the user must choose a number 
of mutually exclusive options, such as 
Male/Female or Yes/No/Don't Know. 
In both cases, you can query the cur- 
rent state of the control using its Value 
property, and trap the user's actions 
on it by writing code in its Click event. 

The ListBox and ComboBox con- 
trols show a list of items that the user 
can choose from. Users can select mul- 
tiple items from the ListBox control, 
but only one from the ComboBox con- 
trol. You can create individual items 
using the List property at design time 
or by using the Addltem method at run 
time. A number of design-time-only 
properties, such as Columns (for col- 
umn lists) and Sorted (lists sorted in 
alphabetical order), let you determine 
how a particular control behaves. You 
can intercept user actions at run time 
in the Click events of the controls, 
query the current item with the 
Listlndex property, and learn which 
elements are selected with the Selected 
property. ComboBox controls also ex- 
pose a Change event that fires when 
the user modifies the contents of the 
edit portion of the field. 

You use the PictureBox control pri- 
marily to show images. You can desig- 
nate a picture to display using the Pic- 
ture property at design time or the 
LoadPicture property function at run 
time. You can also use the PictureBox 
control as a container for other con- 
trols. If you don't need the PictureBox 
control's graphic capabilities, you can 
build a container using the Frame con- 
trol. If you need to show a bitmap but 
don't need a container control, you 
can probably get by with an Image 
control, which requires far fewer re- 
sources than a PictureBox control. 

The Label control is useful for add- 
ing descriptions on a form and provid- 
ing hotkey capabilities for controls that 
lon't expose a Caption property. For 
xample, suppose you want to provide 
our users with the ability to move the 
tput focus on a TextBox control. You 
in achieve this by placing a Label 
ntrol above the text box and setting 
e label's Caption property to 



http:/ /www. windx.com 



Introduction to Visual Basic 5.0 



Part 2 



pear on the form, but instead tells VB to 
write an underscore beneath the "N" 
acter that follows it. Users can move 
; focus on the text-box field by pressing 
the Alt+N key combination at run time. 
Note that you must also ensure that the 
text box's TabOrder property is one 
greater than the label's TabOrder prop- 
erty for this trick to work. 

You rarely use Horizontal ScrollBa r 
sr Vertical ScrollBar controls on their 
own. Instead, you might add a scrollbar 
lext to a PictureBox control, then write 
code that gives the picture box scroll- 
ing capabilities. 

A Timer control is invisible; its sole 
purpose is to periodically fire a Timer 
event, which can enable your code to 
perform some action in the background. 
For example, you might query a data- 
base, show data coming from a serial 
port, or sort a big array. You decide how 
often the event is fired by setting the 
timer's Interval property. 

DriveListBox, DirListBox, and 
FileListBox controls often work to- 
gether. DriveListBox is a special-pur- 
pose combo-box control that is auto- 
matically filled with the names of all 
the logical drives in the system; 
DirListBox is a special-purpose list-box 
control that is automatically filled with 
the names of all the directories in a 
given path; and FileListBox is a list box 
filled with the names of all files in a 
given path. You usually employ these 
controls to build custom dialog boxes 
that enable a user to select a file or 
directory in the system. 

You use Shape and Line controls al- 
aosl exclusively for "cosmetic" reasons 
uch as embellishing a form with lines 
rectangles, circles, and ovals. You ca 
change the properties of these controls ' 
the Property Window, but they do' 
expose any events. 

Data controls let you display i 
update information from a data sou 
For example, after you add a Data 
trol to a form, you might set its Data 
and RecordSource properties to re 
a particular table in an Access dataDa^. 
Next, you set the DataSource and 
Data Field properties of the controls on 
the form, "linking" the control to a par- 
ticular field in the database. This en- 
ables you to store information typed 
into a field in the database, or to cause 
the control to show the values of data- 
Base fields on the current form — all with- 
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Horizon 



small "Aa" rectangle on the left. Note that 
the background color shown here is some- 
times different from what you select be- 
cause backgrounds can only be "solid" 
(nondithered) colors. 

[JjThe Components Dialog. The 

Toolbox displays only OCX-type cus- 
tom controls by default, but you can 
use the Components dialog in the 
Project menu to add additional con- 
trols to the Toolbox. For example, VB 
displays a list of ActiveX Documents 
you can embed in your forms if you 
click on the Insertable Objects tab of 
the Components dialog. ActiveX Docu- 
-^t q are documents created by server 
' <;uDport OLE embed- 
J w or dPad 
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You can add and~r 
the Components command 
Project menu. You can even organize 
your controls into distinct groups, by right- 
clicking on the Toolbox, selecting the 
Add Tab command, and liien drugging- 
and-dropping controls from one tab to 
another. 
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,. Finally, you can 
it behavior of VB's 
dialog in the Tools 
ovides access to a 
t affect the look and 
nvironment, such as 
dockable, the font 
used in code windows, what happens when 
a runtime error occurs, and so on. Take 
the time to study all these options be- 
cause they can prove invaluable when it's 
time to test and debug your programs. M 
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Learn the 

ABCs of VBA 



by Christine Solomon 



Lay the groundwork 
for learning VBA by 
mastering its syntax 
and its basic coding 
structures. 



Perhaps the most difficult part of learn- 
ing a computer language is figuring 
out where to begin. Sure, you can 
drop a couple text boxes on a form in 
Visual Basic, and have the vaunted "Hello 
World" app up and running in a matter of 
minutes. You can also create other simple 
apps simply by combining a few of the 
intrinsic controls and setting a couple prop- 
erties. But, as nice as it can be to create your 
first apps so quickly, these simple apps 
represent baby steps toward the hard work 
that you will need to put in to learn a 
programming language, even one as pro- 
grammer-friendly as VB or its cousin, Visual 
Basic for Applications (VBA). 

VBA is the language engine that ties 
together all the tools in the Office 97 suite. 
A number of third-party companies also 
license VBA for use in their products (see 
thesidebar,"VBALicensees").AswithVB, 
VBA allows you to create your initial pro- 
grams in a matter of minutes. Indeed, one of 
the neatest aspects of using VBA is that you 
can use the macro recorder included with 
each tool to show you how to program. 
Simply turn on the macro recorder, record 
a few actions, then turn off the macro re- 
corder and look at the underlying code that 
is generated. You will see the correct syntax 



forimplementingthetaskyourecorded.The 
macro recorder can be an invaluable aid in 
learning howto program, and this article will 
show you how to use it. But this article will 
also provide a primer on some of the key 
aspects of programming in VBA The macro 
recorder can show you the correct syntax 
for opening an Excel workbook, but it can't 
show you how to write a loop routine, name 
your variables, or even how to break your 
code so that it is more readable. 

This article covers a handful of core com- 
petencies for the programmer who is new to 
VBA. If you have previous programming 
experience, it provides a good jumping-off 
point for learning more. For the beginning 
programmer, it also introduces fundamen- 
tal aspects that are common to all program- 
ming languages. The handful of core compe- 
tencies includes macro recording, variables, 
data types, constants, and operators. As I 
introduce these essential programming top- 
ics, I will also go into some detail on how to 
use message boxes, input boxes, basic string 
manipulation, and a few objects from the 
Excel library. Each section features a short 
example that you can type into the VB Editor 
and run, so that you can watch it work. 
Before addressing the down^and-dirty as- 
pects of coding, however, I'll look at what 
VBA is, why it's useful, and how it fits in with 
other Microsoft development tools such as 
Visual Basic and VBScript (see Figure 1). 

VBA and VB share the same language 
engine, but VB extends the VBA engine 
and adds features to VBA's development 
environment that enable you to create 
standalone applications (EXEs). VBA en- 
ables you to automate and augment Of- 
fice 97 products to build custom solu- 
tions. For example, you might want to 
automate the process of querying a data- 
base and retrieving the data into Excel. 
Or, you might want to create a custom 



dialog box that prompts employees to 
enter certain information prior to pub- 
lishing reports in Word. 

Each product in the Office suite except 
Outlook comes with an application-specific 
library that extends VBA to provide access 
to its own specialized features. For example, 
the VBA library (VBA332.dll) consists of 1 1 
different categories of procedures with 182 
statements, functions, properties, and meth- 
ods, and 254 intrinsic constants. The Excel 
object library (EXCEL8.olb), however, is 
more than 16 times that size because it 
contains the objects, properties, and meth- 
ods that access all of Excel's functionality. 
Similarly, the Access library (MSACC8.olb) 
is several times larger than the VBA library. 
These application-specific libraries are the 
"A" in VBA. 

Outlook includes a subset of the VBA 
language called VBScript. VBScript is de- 
signed to be embedded within an Internet 
browser, and is currently available within 
Microsoft Outlook and Internet Explorer. 
VBScript lacks key VBA programming 
components, including data types 
(VBScript supports only one data type, 
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VB Hierarchy at a Glance 




Figure 1 . Leverage VB Skills in Three Development 
Languages. This diagram illustrates the relationship between VB, 
VBA, and VBScript. VBA and VB share the same language engine, 
but VB extends the VBA engine and adds features to VBA's 
development environment that enable you to create standalone 
applications (EXEs ). VBA offers you a way to customize solutions 
for Office and other VBA-enabled apps, while VBScript is a subset 
of VBA for Web programming. The best part about all three is that 
they use the same syntax, and you can often leverage your 
knowledge of one across the other two. 

variant), file I/O functions (to make it safe for use on the Web), 
and declarations to external functions. 

VBA5 TRANSFORMS OFFICE 

Part of the power available to Office-based apps comes from the 
inclusion of the Visual Basic Editor (VBE). The VBE is an 
integrated development environment that imitates VB5. VBE is 
a separate application that you launch from Excel, Word, and 
PowerPoint using the Visual Basic Editor command on the 
Tools, Macro menu. Unfortunately, Microsoft Access 97 still 
uses VBA2 and Access 95's form's package and editing interface. 
You can use the VBE from within Excel, Word, and PowerPoint 
to write code and create custom dialog boxes and forms. 

The VBE includes four main windows that you use to write 
and edit code, and create forms and dialog boxes: the Project 
Explorer, the Code Window, the Properties Window, and the 
Object Window. I'll take a closer look at each Window and what 
you can do with them. 

The Project Explorer lets you manage the elements of your 
VBA project, including your general code modules, UserForms 
(forms created with Microsoft Forms 2.0), and the code asso- 
ciated with each Office product's particular. Double-click on 
an element in the Project Explorer to view and edit it. 

You use the Code Window to type and edit code. Use the 
view buttons in the lower left corner to switch between Full 
Module View (which lists procedures sequentially) and Proce- 
dure View (which displays only one procedure at a time). 
Subroutines without arguments are listed in the Macros dialog 
box, which you bring up from the Tools menu in Excel, Word, 
and PowerPoint. Functions and subroutines with arguments 
are listed only in the Code Window. 

The Properties Window lists the characteristics of every 
element in your project, including things such as name, height, 
and width. Properties for a selected object appear in the Prop- 
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erties Window. For example, if you're coding in Excel, and you 
want to change the name of the first module listed in the Project 
Explorer's Module folder from Modulel to VBASamples, select 
Modulel, then type in "VBASamples" for the Name property in 
the Properties Window. 

The Object Window is the VBE's form layout window. You can 
add controls to UserForms through the Toolbox, which also 
supports custom ActiveX controls (OCXs). You can also add 
custom controls through the Additional Controls command on 
the VB Editor's Tools menu. 

RECORD A VBA SUBROUTINE 

Now that you know something about the different windows in 
the VBE as well as what they do, let's explore other features of 
the development environment. One way to become familiar with 
VBA is to record a macro, run it, then edit it. Although this 
sample macro runs in Excel (it opens an Excel workbook), you 
can use the same process to record, run, and edit macros in 
Word and PowerPoint. 

First, open Excel, choose Macro from the Tools menu, then 
select Record New Macro. This opens the Record Macro dialog 
box. Next, name and store the macro. By default, Office products 
store macros in the file in which you're currently working. Now, 
describe the macro. 

At this point, you can click on the OK button to start record- 
ing the macro. Next, choose Open from the File menu, switch to 
the directory C:\My Documents, select a workbook (such as 
Win32 API Examples.xls), and click on OK. Finally, click on the 
Stop Recording toolbar button, or select Stop Recording from 
the Tools Macro menu. 

That's it. To run the macro, choose Macro from the Tools 
menu, then select Macros to open the Macro dialog box, which 
lists all macros. Note that macros are subroutines without 

VBA enables you to 
automate and augment 
Office 97 products to 
build custom solutions. 

arguments. Although VBA supports subroutines with arguments 
and functions, the Macro dialog box does not list these. 

In the Macro dialog box, select the macro you just created, then 
click Run. When you run a macro, you replay whatever you did 
when you recorded the macro. You can also edit a macro after you 
record it. Choose Macro from the Tools menu, then select Macros. 
In the Macro dialog box, select the macro you recorded, then click 
on the Edit button to open the macro in VB Editor's code window 
(see Figure 2). 

You should see this code (minus the underscore character) in 

VB Editor's code window: 

SubMacrolO 
' Macrul Macro 

' Macro recorded 7/28/97 by Your Name 
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Figure 2. Edit Macros in VBEditor. One ofthe coolest aspects ofVBA is that it can teach 
you how to code. After you record a macro, you can both look at and edit the code from 

the recorded macro. 
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Workbooks .Open Fi 1 eName :- _ "C : \My 
Documents\Win32 " & _ 
"API Examples.xls" 
End Sub 

You need to understand objects, prop- 
erties, methods, statements, and func- 
tions to read the code you recorded. In 
other words, you need to understand the 
building blocks of VBA procedures. When 
you write VBA code, you either set an 
object's properties or methods, or call a 
VBA statement or function. You can think 
of programmable objects — many of 
which are included in the application- 
specific libraries that come with 
Microsoft Office — as bundles of function- 
ality that you can manipulate in two ways : 
by setting or retrieving their properties 
(or characteristics), and by using their 
methods (or procedures). 

EYE THE ANATOMY OF A SUBROUTINE 

Excel workbooks, Word documents, and 
PowerPoint presentations are objects. When 
you get a workbook's name through code, 
you get its Name property. The syntax to 
manipulate an object is straightforward: 

object. property 

or: 

object. method 

You can either set a property or per- 
form a method in any given line of code, 
but you can't do both at once. The code 
from the sample macro uses the Open 
method of the Workbooks object. 

The code after the Open method con- 
sists of the arguments (or additional in- 
formation) that the method requires to 
do anything. In the sample code, the argu- 
ment is FileName. Arguments are followed 
by a colon plus an equal sign (:=), then the 
information the argument uses. 

The information that the FileName ar- 
gument uses is fairly straightforward. It 
consists of the path and the file name of 
the presentation to open, enclosed in 
quotes. Note that VBA requires all plain 
text to be enclosed in quotes. 

You write a "line of code" whenever 
you call a VBA statement or function, or set 
an object's properties or methods, al- 
though that "line" can wrap onto several 
lines for display purposes. A "line of code" 
ends with a carriage return. To make your 
code easier to read, break long lines into 
multiple lines using <space>_<carriage re- 
turns For example, you might break this 
line from the sample macro: 

Workbooks. Open FileName:-_ 

"C:\My Documents\Win32 API " & _ 
"Examples.xls" 



Note that first line includes an under- 
score, and the second line is indented 
slightly. It is illegal to break a line across 
quotes, however, so you need to end the 
quote, use the "& _" construction, and 
resume the code on the next line, begin- 
ning with a new quote mark. 

Inline comments also make your code 
easier to read. A comment is simply a line 
of text that starts with an apostrophe ('): 

' Macro recorded 7/28/97 by 
' Your Name Here 

Visual Basic simply ignores anything 
that starts with an apostrophe, so you 
can add notes for yourself as well as other 
programmers. 

You can do quite a bit more with VBA 
than create and edit macros. The rest of 
this article shows you how to exploit 
some of that power, and includes code 
examples that you can quickly type into 
the VB Editor and run. For example, I'll 
covervariables, constants, operators, and 
control structures, including when and 
how to use them. Note that the VB Editor 
displays possible values and syntax tips 
as you type. You can use the Options 
command on the VB Editor's Tools menu 
to set which tips appear. 

STORE DATA IN VARIABLES 

Variables are single-word names that 
store a particular type of data whose 
value can vary depending on the data's 
source. The data source might come from 
a user, a calculation, another subroutine 
or function, or another file. You can de- 
clare (or identify) variables using the 
VBA keyword, Dim: 



Dim strNameOf Vari abl e as DataType 

VBA recognizes 13 data types for vari- 
ables: Boolean, Byte, Currency, Date, 
Double, Variant, Integer, Long, Object, 
Single, String, Variant, and User-Defined 
(declared using the Type statement). Al- 
though VBA doesn't require you to declare 
variables, you can (and should) force vari- 
able declaration using the Option Explicit 
statement. Choose Options from the Tools 
menu to select the Require Variable Decla- 
ration option in the Editor, which adds the 
Option Explicit statement automatically to 
new modules. Forcing variable declaration 
is considered good programming practice 
because it helps you to identify and track 
the variables used. 

Another good programming practice 
is to name variables by the type of data 
they hold (see Table 1). For example, 
programmers generally name string vari- 
ables with the "str" prefix, and integer 
variables with the "int" prefix: 

Dim strName as String 
Dim intAge as Integer 

Constants are single-word names that 
contain data whose value doesn't change. 
You initialize (set the initial value of) con- 
stants using the keyword, "Const." A gen- 
erally accepted rule for naming constants 
is to make them all caps so you can distin- 
guish them from variables at a glance: 

Const AGE - 59 

VBA makes use of intrinsic (or built-in) 
constants. All intrinsic constants included 
in the VBA library (there are more than 
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Figure 3. Check the Value of an Intrinsic Constant. The VBA 

library (VBA332.dll) includes 254 intrinsic constants. You can 
check the value of a constant by opening the VB Editor's Object 
Browser (press <F2> ), then selecting the constant you want. Its 
value appears in the detail pane at the bottom of the window. 

250) use the naming convention vbNameOfConstant. Similarly, 
Access constants use the naming convention acNameOf Constant, 
Excel constants use xlNameOfConstant, Word constants use 
wdNameOfConstant, and PowerPoint constants use 
ppNameOfConstant. Use the Object Browser to find values for 
intrinsic constants (see Figure 3). 

Now, let's look at an example that uses intrinsic constants. 
The MsgBox statement, which displays a message box, requires 
a Button argument indicating the buttons (OK, Cancel, Yes, No, 
and so on) and the icon (question, exclamation, information, or 
stop) to display. Numeric values that are also assigned intrinsic 
constants represent each button and icon. The value for a mes- 
sage box's Button argument equals the sum of the values for the 
buttons and the icon. 

For example, you could write a subrou- 
tine to display a particular message box in 
a couple different ways. The second sub- 
routine uses intrinsic constants and is 
easier to read: 



'Subroutine 1 
SubMsgValueO 

MsgBox Prompt:-"Continue?", _ 
Buttons:-36, Ti tl e :-"VBPJ" 
End Sub 

'Subroutine 2 
Sub MsgConst( ) 

MsgBox Prompt :-"Conti nue?" , _ 

Buttons :-vbYesNo + vbQuesti on, _ 

Title:-"VBPJ" 
End Sub 

ARGUMENTS PROVE HELPFUL, 
NOT UNFRIENDLY 

VBA supports both positional and named 
arguments. Positional arguments must 
appear in a specific order. If you choose 
not to specify an optional positional argu- 
ment, you must still leave a place for it by 
using a comma, unless it's the last argu- 
ment in the list. For example, VBA's 



T 



he Properties Window 
lists the characteristics 
of every element in 
your project, including 
things such as name, 
heigh', and width. 



InputBox, which displays a simple dialog box for users to type 
information, accepts six arguments: (1) text prompting users 
to respond, (2) a title that appears in the title bar, (3) a default 
response, (4) the horizontal position at which the input box 
appears, (5) the vertical position, and (6) an associated help 
file and a context ID for the related help topic. You must use 
them in the proper order; otherwise, VBA won't parse your 
arguments correctly. 

The only required argument is the first: the prompt. Note that 
the information users type in is stored in a string variable when 
they click on the OK button (see Figure 4): 

Sub Getlnput( ) 

Dim strAnsw As Stri ng 

strAnsw- InputBoxt "Type " &_ 
"your name, 1 ast name f i rst : " ) 
End Sub 



Data Type 


Size 


Range 


Prefix 


Boolean 


2 bytes 


True (nonzero) or False (zero) 


bin 


Byte 


1 byte 


to 255 


byt 


Currency 


8 bytes 


-922,337,203,685,477.5808 to 
922,337,203,685,477.5807 


cur 


Date 


8 bytes 


January 1,100 to December 31, 9999 


dat 


Double 


8 bytes 


1. 7976931 3486232E308 to 
-4.94065645841 247E-324 (negative); 
4.94065645841 247E-324 to 
1. 7976931 3486232E308 (positive) 


dbl 


Variant 


1 4 bytes 


-922,337,203,685,477.5808to 
922,337,203,685,477.5807 


vnt 


Integer 


2 bytes 


-32,768 to 32,767 


int 


Long 


4 bytes 


-2,147,483,648to2,147,483,647 


Ing 


Single 


4 bytes 


-3.402823E38 to -1 .401 298E-45 (negative); 
1 .401 298E-45 to 3.402823E38 (positive) 


sng 


String 


Up to 10 bytes + 
length of string 


to approximately 2 billion (variable-length); 

1 to approximately 65,400 (fixed-length) 


str 



Table 1 . Choose the Right Data Type and the Appropriate Prefix. This table lists 
VBA data types, their size, and the three<haracter prefixes generally used to name them. 
For example, string variables are generally named with the prefix str, and integer 
variables with the prefix int. 
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Logical 


| H J! W !J IIM | 

individual 


Kesuii 


Operator 


Exoressions 




And 


True And True 


True 




True And False 


False 




False And True 


False 




False And False 


False 


Not 


Not True 


False 




Not False 


True 


Or 


True Or True 


True 




True Or False 


True 




False Or True 


True 




False Or False 


False 



Table 2. Find the Truth of an Expression. The number of 
possible combinations for combining Boolean expressions is 
rather limited. Use this chart to determine whether a given 
combination will evaluate to True or False. 




Figure 4. Gather Input. VBA 's InputBox function provides the 
simplest method forgetting information from users. Use Microsoft 
Forms 2.0 to create professional forms and dialog boxes for 
displaying information to users and getting information from them. 



The next example specifies every argument except the third, 
which sets the default response (its place is marked by commas) 
and the last response (which is ignored): 

Sub GetMoreInput( ) 

Dim strAnsw As Stri ng 
strAnsw - InputBoxt "Type your " & _ 
"name, last name first:", _ 
"Who Are You?", , 100, 100) 
End Sub 



The problem with this example is that 
you can't tell which argument is which 
merely by reading the code. Named argu- 
ments solve this problem by letting you 
specify arguments by name, without refer- 
ence to their position. For example, you can 
use named arguments to show the argu- 
ment in any order you like: 



you to declare variables of the Object data type. Object variables 
are the most efficient way to call objects that you use repeatedly. 
You create an object variable in two steps: declare it, then set it. 
This code uses the object variable, objRngVar, to format an Excel 
worksheet range: 



Sub FormatRanget ) 

Dim objRng As Object 
Set obj Rng - _ 

ThisWorkbook.Worksheets( 



'•Sheetl").Range("C8:G12") 



objRng. Font .Si ze - 14 
objRng. Font. Bold -True 
objRng. Value - "- C$1 + C$2" 
End Sub 

Object variables minimize the number of dots (.) in your 
code; the fewer dots, the faster your code runs. Although you 
can use the Object data type to reference any object — from a 
range object on an Excel worksheet to a PowerPoint presen- 
tation object — you pay a price for this flexibility in speed. 
Using the Object data type produces what's known as late 
binding to that object, which occurs at run time. Early bind- 
ing, on the other hand, occurs at compile time, and makes 
your code run much faster than late binding. You can force 
early binding to occur by declaring object variables with the 
specific class names for the objects, such as Range or 
Worksheet: 

Dim objRng As Range 

Operators are another important programming tool at your 
disposal in VBA. Operators are symbols that instruct the pro- 
gram to perform operations, such as addition, on the expres- 
sions on either side of the symbol. There are three kinds of 
operators: Arithmetic, Logical, and Comparison. Some of the 
more common Arithmetic operators include "+" (add), 
"-" (subtract), "*" (multiply), "/" (divide and return floating 
point), "\" (divide and return integer), and "()" (define the order 
for evaluating expressions). 

Note that integer (whole number) arithmetic is always faster 
than floating-point (decimal) arithmetic, so use integers for 
calculations whenever possible. Use parentheses to define the 
order in which calculations occur, just as you would when doing 
arithmetic by hand: 



Sub GetInputAgain( ) 

Dim strAnsw As String 
StrAnsw- InputBox(Prompt:-_ 

"Type your name, last name " & _ 
"first: ", Xpos:-100, Ypos:-100, _ 
Title:="Who Are You?", _ 
Default:-"") 
End Sub 

USE OBJECT VARIABLES FOR 
MORE EFFICIENCY 

In addition to variables that store general 
information for your program, VBA enables 



Sub IsItTaxable( ) 

Dim strPurchase As String 

Dim strState As Stri ng 

DimblnTaxableAs Boolean 

'Use input boxes to get input 

' from users . 

strPurchase 

InputBox$( "Enter your purchase: ") 
strState - InputBox$( "Enter " & _ 

"the state where you made the" & _ 

"purchase:") 

'Evaluate the input from users and 
'set blnTaxable accordingly. 
If UCase$( strPurchase) 

"CLOTHING" And UCase$ (strState) 
-"NJ"Then 



bl nTaxabl e - Fal se 
Elself UCase$(strPurchase) = _ 

"FOOD" Then 

bl nTaxabl e - Fal se 
Else 

bl nTaxabl e = True 
End If 

'Display a message box based on 
'whether Taxable is True or False. 
If bl nTaxabl e - True Then 

MsgBox Prompt:-"Taxable!", _ 
Title:-"VBPJ" 

Else 

MsgBox Prompt:="Not taxable!", 
Title:-"VBPJ" 
End If 
End Sub 



Listing 1 . Make the Right Choice — Conditionally. If.. .Then.. .Else lets your program 
make a quick decision based on which option is true. This example elicits input from a 
user, then performs different actions based on that input. 
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Sub LoopOne( ) 

Dim intCounter As Integer 

intCounter - 1 

Do While intCounter < 3 

MsgBox prompt:-intCounter, _ 

Title:-"VBPJ" 
intCounter - intCounter + 1 
Loop 
End Sub 



Sub LoopTwo( ) 

Dim intCounter As Integer 

i ntCounter - 1 

Do Until intCounter = 3 

MsgBox prompt:«intCounter, _ 

Title:-"VBPJ" 
intCounter-intCounter + 1 
Loop 
End Sub 



Listing 2. Compare Do. ..While with Do. ..Until. These functionally equivalent 
subroutines approach the same problem from different perspectives. A program that 
encounters a Do While... Loop first evaluates Condition. If Condition is True, Code 
executes. Each time the program reaches Loop, it reevaluates Condition and reexecutes 
Code for as long as Condition remains True. The Do Until. . . Loop control structure executes 
in a similar way, except that Code executes for as long as Condition evaluates to False. 



Sub LoopThree( ) 

Dim intCounter As Integer 

intCounter - 

Do While intCounter > _ 
And intCounter <- 100 
intCounter - intCounter + 1 

Loop 

MsgBox prompt :«i ntCounter, _ 
Title:-"VBPJ" 
End Sub 



Sub LoopFour( ) 

Dim intCounter As Integer 

intCounter - 
Do 

intCounter - intCounter + 1 
Loop Whi 1 e i ntCounter > _ 
And intCounter <- 100 

MsgBox prompt:=i ntCounter. _ 
Title:-"VBPJ" 
End Sub 



Listing 3. Check for the Condition at the Beginning. Do... Loop lets you specify 
whether to check the condition at the beginning or at the end of the loop. If the code checks 
the condition at the end of the loop, it must run the loop at least once. In this example, you 
create loops that are identical except for the placement of the condition. The loop in the 
first example never executes. It displays a message box with the intCounter value of zero, 
while the second loop displays a message box with the intCounter value of 101. 



in which different pieces of code ex- 
ecute. In this manner, they are similar to 
parentheses, which designate the order 
to carry out mathematical evaluations. 
Subroutines and functions usually ex- 
ecute one line at a time, from beginning 
to end. However, events or control struc- 
tures can cause the program to either 
execute code repeatedly or execute code 
out of sequence. Events are "outside" 
elements that affect the computer pro- 
gram, such as a given amount of time 
passing, or users opening a certain file. 
Control structures are techniques for 
processing "decisions" within the com- 
puter program itself. VBA uses four con- 
trol structures that you find in most 
programming languages: If. ..Then... 
Else, Select Case, For. ..Next, and 
Do... Loop. VBA also uses a pair of VBA- 
specific control structures: "With. ..End 
With" and "For Each. ..Next." 

If... Then... Else is the most intuitive 
control structure; it means exactly what it 
says. The simplest form of this control 
structure executes code based on whether 
a certain condition exists: 

If Condi ti onl Then 

Codel 
End If 

When a program executes this control 
structure, it first evaluates Condition 1. If 
Conditionl is True, program execution 
continues with the first statement in 
Codel. If Conditionl is False, Codel is 



Variables are single-word names 
that store a particular type of 
data whose value can vary 
depending on the data's source. 



Sub SampleCalcul ationt ) 

MsgBox Prompt:- (130 + 130) * 8 / „ 
3, Title:-"VBPJ" 
End Sub 

Logical operators combine Boolean ex- 
pressions, which evaluate to either True 
or False, to produce a Boolean (True/False) 
result. The most common Boolean expres- 
sions include "and," "not," and "or." 

It is easy to predict the result of a 
given Boolean statement (see Table 2). 
Note that True has the integer value of 
-1, and False has the integer value of 
zero. This means that the expression 
True and False (which is in fact False) 
evaluates to zero. 

Comparison operators let you com- 
pare expressions. The result is always 
Boolean. Some comparison operators in- 
clude: "=" (equal to), "<>" (not equal to), 
"<" (less than), ">" greater than, "<=" (less 
than or equal to), and ">=" (greater than 
or equal to). 

Concatenation also proves important 
when coding in VB or VBA. Concatenation 
lets you combine a series of string vari- 
ables and literal (plain text) strings. For 
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example, you might create code that com- 
bines a number of different elements into 
the same string, then displays the result 
in a message box. VBA uses the amper- 
sand (&) for concatenation: 

Sub SampleConcatenationf ) 
Dim strToday As String 
strToday - Date$ 

MsgBox "Today is " & strToday & "." 
End Sub 

TAKE CHARGE WITH 
CONTROL STRUCTURES 

Control structures determine the order 



skipped and execution continues with 
the first statement following End If. 

Two clauses, Elself and Else, allow you 
to add additional tests to your If. . .Then. . . 
Else control structures. Use these op- 
tional clauses to enable your code to take 
different actions depending on certain 
conditions. You can include any condi- 
tion that evaluates to either True or False. 
Square brackets enclose optional parts 
of the control structure: 

If Conditionl Then 
Codel 

[Elself Condi tionZ Then 
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Code2 ] 

[Elself Condition3 Then 
Code3 ] 



[Elself ConditionN Then 

CodeNl 
[Else 

CodeElse ] 
End If 

A program executes Condition 1 first 
when it evaluates this code. If Condi- 
tionl is True, Codel executes. When 
Codel finishes, the program skips to the 
first statement following End If. If Condi- 
tion 1 is False, however, the program skips 
to the next Elself clause and evaluates 
Condition2. If Condition2 is True, Code2 
executes and the program continues with 
the first statement following End If. If 
Condition2 is False, the program skips to 
the next Elself clause. This process con- 
tinues until one of three things happens: 
an Elself condition is True (in which case 
its block of code executes); the program 
reaches the end of the control structure 
before a condition evaluates to True (in 
which case none of the code inside the 
control structure executes); or the pro- 
gram encounters an Else clause. 

An If.. .Then. ..Else control structure can 
have only one Else, which always appears 
as the last clause. Else clauses don't have 
conditions; they execute when all of the 
other conditions fail. 

For example, you might use VBA's 
InputBox function to get information from 
a user. You can combine a couple of 
InputBox functions with an If... Then... 
Else control structure and the logical 
operator "And" to evaluate the input and 
respond accordingly (see Listing 1). If 
users type "clothing" in the first input 
box and "NJ" in the second, your pro- 
gram might display a message box indi- 
cating that clothing isn't taxable in New 
Jersey. If users type "food" in the first 
input box and anything in the second, 
the program displays the same message. 
If users type anything else in the two 
input boxes, the program displays a 
message indicating that the purchased 
items are taxable. 

PICK A CASE WITH SELECT CASE 

The Select Case control structure, like 
If. . .Then. . .Else, enables your code to per- 
form different actions depending on cur- 
rent conditions. While If. ..Then. ..Else 
can evaluate any condition, Select Case 
can evaluate only a single expression. 
Select Case is generally better than 
If... Then... Else in situations when you 
need to evaluate only a single expression 
because it requires less typing and is 



DEVELOPMENT TOOLS 
Advanced Technologies 
http://www.atrcorp.com 
Cap Gemini 

http://www.capvolmac.nl 
ClearSand Corp. — MediaForge 
http://www.infowest.com/clearsand 
Cognos 

http://www.cognos.com 
DataMirror — - Future products 
http://www.dmirror.com 
Information Builders — Cactus 
http://www.ibi.com 
Innovus — Innovus Multimedia 
http://www.innovusmm.com 
Rational Software Corp. 
http://www.rational.com 
Stai Base Corp. — StarTi 
http://www.starbasecorp.com 
Texas Instruments 
http://www.ti.com/software 
vlmpact — vRAD Developer 
http://www.vimpact.net 

DOCUMENT MANAGEMENT 
ALP Data 

http://www.alp.se (site not in English) 
Cyco Software 
http://www.cyco.com 
Data Mirror 

http://www.datamirror.com 

Documentum Inc. — DocPage Builder 

http://www.documentum.com 

FileNET — FileNET product family 

http://www.filenet.com 

Janna Systems 

http://www.janna.com 

Kofax 

http://www.kofax.com 
Rasterex International 
http://www.rasterex.com 
Staffware PLC — Staffware 
http://www.staffware.com 

ELECTRONIC COMMERCE 
The EC Company — EC Exchange 
http://www.eccompany.com 

ENGINEERING 

AMLAB International 

http://www.magna.com.au/~amlab 

EDS Unigraphics 

http://www.eds.com 

Intergraph Corp. 

http://www.intergraph.com 

ENTERPRISE APPLICATIONS 

Elite Information Systems 

http://www.elite.bsis.com 

Interface Software 

http://www.interactlon.com 

McAfee Associates Inc. — McAfee Enterprise 

http://www.mcafee.com 

Tiger Systems 

http://www.tiger.com 

FINANCIAL SERVICES 
Dow Jones — ProActive 
http://www.dowjones.com 




VBA Licensees 



More than 100 companies, covering a wide spectrum of the software industry, have 
licensed Visual Basic for Applications (VBA) and plan to integrate it into future 
versions of their applications. We've listed these companies and their products here. 
For up-to-date information, check out our VBA Objects Web site at http:// 
objects.windx.com. You'll find technical information, documentation, samples, and 
links related to tools that feature VBA. The site includes object models for products 
that incorporate VBA, as well as syntax, sample code, and related articles. We 
continually update the site as more products become available. 



ACCOUNTING 

Great Plains Software — Dynamics Modifier, 

Dynamics C/S+ for Microsoft SQL Server Modifier, 

Dynamics C/S+ Modifier 

http://www.gps.com 

Portable Software 

http://www.xpense.com 

BANKING 

Baker Hill — OnePath 

http://www.bakerhill.com 

Creditor Resources Inc. — CRIterion 

http://www.mongen.com/creditorresources/ 

BUSINESS GRAPHICS 
Visible Decisions 
http://www.vdi.com 
Adobe — Photoshop 
http://www.adobe.com 
Erdas Inc. 

http://www.erdas.com 

Micrografx Inc. — Micrografx Flowcharter 

http://www.micrografx.com 

Template Graphic Systems 

http://www.tgs.com 

Visio Corp. — Visio, Visio Professional, 

Visio Technical 

http://www.visio.com 

CAD/CAM 

Autodesk Inc. — AutoCAD R14, AutoCAD Map 2.0, 

Autodesk World 1.0 

http://www.autodesk.com 

Computervision 

http://www.computervision.com 
EDS Unigraphics 
http://www.eds.com 

Intergraph Corp. — Imagineer Technical, 

SolidEdge Draft 

http://www.intergraph.com 

Visio Corp. — Visio, Visio Professional, 

Visio Technical 

http://www.visio.com 

CLIENT/SERVER ENTERPRISE APPUC ATIONS 
Amadeus 

http://www.amadeus.net 
Harbinger Corp. 
http://www.harbinger.com 
SAP Technology Inc. — R/3 
http://www.sap.com/ 
Scopus 

http://www.scopus.com 
ShivaSoft 

http://www.shivasoft.com 

CUSTOMER MANAGEMENT 

Clarify Inc. — ClearSupport 

http://www.clarify.com 

Newtonian Software Inc. — SalesMechanix 

http://www.newtonian.com 

Vantive Corp. — Vantive Enterprise Suite 

http://www.vantive.com 

DATA WAREHOUSING 
Sagent Technology Inc. — 
Sagent Data Mart Solutions 
http://www.sagenttech.com 
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en-ill Lynch — Private Client (PC) Shell 
http://www.ml.com 

OnPoint Technologies Inc. — Global Access 
Piranha 1.0 (Disclosure's product) 
http://www.onpoint.com 

HEALTH CARE 
CSI Inc. 

http://www.csi-health.com 
Beckman Instruments 
http://www.beckman.com 

HELP DESK 
Black Marble 

http://www.blackmarble.demon.co.uk 

Omninet GmbH 

http://www.omninet.de 

Professional Help Desk 

http://www.phd.com 

Siebel — across product line 

http://www.siebel.com 

Vantive Corp — Vantive Enterprise Suite 

http://www.vantive.com 

INDUSTRIAL AUTOMATION 

Dynapro — RSView and others 

http://www.dynapro.com 

Iconics — Graph WorX32, 

GENESIS for Windows, GFW PlantBrowse, 

AlarmWorX32. TrendWorX32, 

ReportWorX32, ControlWorX32 

http://www.iconics.com 

Nematron — NemaSoft OpenControl Suite 

http://www.nematron.com 

OSI Software — PI System 

http://www.osisoft.com 

PID Inc. — OpenBatch 

http://www.pid.com 

Rockwell — Rockwell Controls 

http://www.software.rockwell.com 

Siemens Energy & Automation — SIMATIC 

STEP 7 PLC 

http://www.siro.com 

TA Engineering — AIMAX for Windows 

Human Machine Interface (HMO 

http://www.ta-eng.com 

INFORMATION MANAGEMENT 
Business Objects 
http://www.businessobjects.com 
Seagate Software — Crystal Info 
http:// www . img.seagatesoftware .com 

RMATION PUBLISHING, 
NET APP TOOLS 
°ve Link http://www.livelink.com 

MET/WEB APPLICATIONS AND TOOLS 
umraingbird — Maestro 
http://www.hummingbird.com 
NetManage — Chameleon ATX 
http://www.netmanage.com/ 
Vectrix Corp. — EdgeworX 1 . 1 
http://www.vectrix.com 

MANUFACTURING 
Comdale Technologies 
http://www.comdale.com 
Copa-Data GmbH — zenOn 

p://www.copadata.co.at/copadata 
napro Systems Inc. — RSView32 (Rockwell mar- 
'ets this product) 
" ttp://www.dynapro.com 
conies Inc. — GENESIS for Windows, Graph WorX32 
ttp://www.iconics.com 
ntellutlon 

http://www.intellutlon.com 
Marex Technology 

p://www.promace.com 



Nemasoft Inc. — OpenControl 

http://www.nematron.com 

OSI Software Inc. — Pi-Process Book 

http://www.osi.com 

PID Inc. — OpenBatch 

http://www.pid.com 

Rebis — Autoplant 97 

http://www.rebis.com 

Rockwell Software Inc. — RSLogix, RSWire, 
RSSql, RSVisuallogix 
http://www.software.rockwell.com 
Siemens AG 

http://www.sea.siemens.com 

MODELING TOOLS 
Logic Works Inc. — ERWin 
http://www.logicworks.com 

Popkin Software & Systems Inc. — System Architect 

http://www.popkin.com 

Rational Software Corp. — Rational Rose 

http://www.rationaI.com.news 

Riverton Systems 

http://www.riverton.com 

NETWORK ADMINISTRATION 

McAfee Associates Inc. 

http://www.mcafee.com 

Netiq Corp. — AppManager 

http://www.netiq.com 

Symantec Corp. — Norton Administrator 

for Networks 

http://www.symantec.com 
RETAIL 

EDS http://www.eds.com 

Klee http://www.klee.fr (in French only) 

Campbell Software 

http://www.campbellsoft.com 

SEMICONDUCTOR TESTING AND 
PROGRAMMING 

B&C Microsystems Inc. — CardServer, PanelServer, 
SIMMServer 

http://www.bcmicro.com 

SIMULATION 
Promodel 

http://www.promodeI.com 

Systems Modeling Corp. — Arena 3.0, Tempo 

http://www.sm.com 

TECHNICAL DRAWING 

Intergraph — Imagineer, SolidEdge 

http://www.intergraph.com 

Micrografx — ABC Flowcharter 

http://www.micrografx.com 

Visio — Visio Professional, Visio Technical 

http://www.visio.com 

TELECOMMUNICATIONS 
Dart Communications — PowerVT 
http://www.dart.com 

TERMINAL EMULATION 
Hummingbird — Exceed 
http://www.hummingbird.com 
NetManage Inc. — Chameleon ATX 
http://www.netmanage.com 

OTHER TOOLS 
CACI 

http://www.caci.com 

Information Builders Inc. — Cactus 

http://www.ibi.com 

Scan-Optics 

http://www.scanoptics.com 



Select Case TestExpression 
Case Expressi onListl 
Codel 

[Case ExpressionListZ 
Code2 ] 



[Case Expressi onListN 

CodeN ] 
[Case El se 

CodeElse ] 
End Select 

When a program executes this 
control structure, it evaluates 
TestExpression, then skips directly to 
the first matching Case statement and 
executes its block of code. If nothing 
matches, one of two things occurs. 
CodeElse executes if there is a Case Else 
statement, or the program skips to the 
end of the control structure. 

In programming languages, control 
structures that perform repetitive tasks 
are called loops. A loop repeats the 
same lines of code until you tell it to 
stop. If you don't tell it when to stop, 
you'll find yourself in the same predica- 
ment as the sorcerer's apprentice: in 
the middle of an infinite loop. Loops 
come in two flavors: For. ..Next loops, 
which run a prescribed number of times; 
and Do. . .Loops, which run until a condi- 
tion is met. You can use the For... Next 
control structure to loop through code 
a specific number of times: 



StartValue To, 



For LoopCounter 
EndValue 
Code 

Next LoopCounter 



When a program executes this con- 
trol structure, it assigns StartValue to 
the variable LoopCounter. The program 
then executes Code. The Next statement 
adds one to the value of LoopCounter, 
and compares this new value with 
EndValue. If the value in LoopCounter is 
less than or equal to EndValue, Code 
executes again; otherwise, the program 
continues execution with the first state- 
ment following Next. 

Next, let's look at a For... Next loop 
that loops three times. When the variable 
intCounter equals a value from one to 
three, the For... Next loop displays a mes- 
sage box with intCounter's value, and 
then increments that value to the next 
value. When intCounter is greater than 
three, the loop ends: 

Sub OneTwoThreet ) 

Dim i ntCounter As Integer 
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MsgBox prompt :-i ntCounter , _ 
Title:-"VBPJ" 
Next i ntCounter 
End Sub 

DO IT AGAIN AND AGAIN 
WITH DO...LOOP 

VBA's Do. ..Loop structure lets you loop 



tion is met. As with the If. ..Then. ..Else 
control structure, the condition can be 
any expression that evaluates to either 
True or False. Execute a Do... Loop two 
different ways: 

Do While Condition 
Code 




User Tip 




VB4, VB5 
Level: Beginning 

ADD CHECK BOX TO FRAME CAPTION 

If you want to enable controls only when the user selects a specific 
option, add a check box or option button to the caption of a frame 
control in Visual Basic. 

Create the frame and its child controls as you usually would, 
setting the frame's caption to a single space. Next, add a check box 
or option button, not within the frame, but on the form itself. 
Position the control so it appears where the frame's caption 
ordinarily would. I generally set the control's Top property equal to 
that of the frame, and its Left property 10 pixels (usually ISO twips, 
greater than the frame's). Finally, add this code to the form: 

Private Sub SetFrameState _ 
(fraTarget As Frame, _ 
ByVal bState As Boolean) 

Dim ctl As Control 

' Loop through parent form's Control s 
' collection and set Enabled state of 
• controls within the desired frame 
For Each ctl In _ 

fraTarget . Pa rent. Controls 

If ctl .Container Is fraTarget _ 
Then 

ctl . Enabled - bState 
End If 
Next 

End Sub 

Then call SetFrameState from the Click event of the check box or 
option button in the frame's caption: 

Private Sub chkBox_Cl ick( ) 
Call SetFrameState(fraCheck, _ 
CBool (chkBox.Value)) 
End Sub 

— Mick Owen, Lacey, Washington 
SEND YOUR TIP 

If it's cool and we publish it, we'll pay you $25. If it includes code, please limit 
code length to 20 lines if possible. Be sure to include a clear explanation of what 
the technique does and why it is useful. Send it to 74774.305@compuserve.com, 
vbpjectit@fawcette.com, or Fawcette Technical Publications, 20i) Hamilton 
Ave., Palo Alto, CA, USA, 94301-2500. You can also fax it to 650-853-0230. Please 
include your mailing address. 



■Or 

Do Until Condition 

Code 
Loop 

A program that encounters a Do 
While. . . Loop first evaluates Condition. If 
Condition is True, Code executes. Each 
time the program reaches Loop, it re- 
evaluates Condition and reexecutes Code 
for as long as Condition remains True. 
The Do Until. ..Loop control structure ex- 
ecutes in a similar way, except that Code 
executes for as long as Condition evalu- 
ates to False. 

Now, look at these functionally 
equivalent VBA subroutines (see List- 
ing 2). The first time through the loop, 
the message box displays one; the sec- 
ond time, the message box displays two. 
Note that you must create a counter 
when you use Do. ..Loop. 

Do. ..Loop also lets you specify 
whether to check the condition at the 
beginning or at the end of the loop. This 
difference is subtle, but important. If the 
code checks the condition at the end of 
the loop, it must run the loop at least 
once. For example, you can create loops 
that are identical except for the place- 



Sub GetEachNamet ) 

Dim intCounter As Integer 
Dim wrkSheet As Worksheet 

' Store each sheet's name as 
' strName. 

Dim strName As Stri ng 

' Insert a new sheet. 
Worksheets .Add 

'Use a counter to select 
'the range 

'for entering a name. 
intCounter - 1 

For Each wrkSheet In Worksheet 
strName - wrkSheet . Name 
RangeC'A" & intCounter) _ 

. Formul a - strName 
1 ntCounter - i ntCounter + 1 
Next 
End Sub 



Listing 4. Loop Through the Excel's 
Worksheets Collection. For... Each... Next 
expands on its For.. .Next predecessor to 
loop through a specific set of objects. For... 
Each... Next is another VBA-specific con- 
trol structure that simplifies the process of 
cycling through all the objects in a collection. 
This code shows you how to loop through 
the Worksheets collection, writing their 
names to a new worksheet. 
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ment of the condition. The loop in the 
first example never executes. It displays 
a message box with the intCounter value 
of zero, while the second loop displays a 
message box with the intCounter value 
of 101 (see Listing 3). 

So far, I've discussed control struc- 
tures that are included in nearly every 
development tool. VBA also includes a 
couple control structures that are spe- 
cific to itself. One of these is "With," which 
lets you use multiple properties and meth- 
ods of an object, without having to refer- 
ence the object each time: 

With Object 

Code 
End With 

You can put this to use with the Excel 
object library. For example, take a look at 
this example, which shows a couple ways 
to format the selected range in a 
worksheet with a 14-point Arial font. The 
second example uses the With ... End With 
control structure to avoid referencing 
the Selection. Font object for each prop- 
erty (Name and Size): 

Sub FormatOnet ) 



Sel ecti on . Font . Name - "Arial" 
Sel ecti on . Font . Si ze - 14 
End Sub 

Sub FormatTwo( ) 

With Selection. Font 
.Name - "Arial" 
.Size - 14 
End With 
End Sub 

For.. .Each... Next is another VBA-spe- 
cific control structure that simplifies the 
process of cycling through all the ob- 
jects in a collection. A collection is a list 
of the current members that a given type 
of object contains. For example, Excel's 
Worksheets collection is a list of 
Worksheet objects. You can loop through 
the worksheets in a Worksheets collec- 
tion, writing their names to a new 
worksheet (see Listing 4). 

Combining the control structures 
and the other coding techniques with 
the macro recorder can give you a solid 
foundation on which to build. This ar- 
ticle is only a starting point, but it dem- 
onstrates many basics you will need to 
master to become proficient at program- 
ming. You must commit these core com- 



petencies to memory. In a way, it's like 
learning a new spoken language. Before 
you can actually speak the language, you 
need to learn a certain amount of gram- 
mar (syntax) and a base vocabulary (key- 
words). Armed with this knowledge, you 
will be able to tie them together to create 
substantial solutions in Office or other 
VBA-supported apps, as well as in VB 
itself. Good luck. x| 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:/ / 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club" in the 
Table of Contents. 

Learn the ABCs of VBA 
Locator+ Codes 

Listings for the entire issue (free Registered 
Level): GS198 

This file includes CSGS198.ZIP, which in- 
cludes code listings shown in this article. 
Listings for this article only (subscriber Pre- 
mier Level): CSGS1 98 



Are You Learning Visual Basic Backwards? 

Find out in a new article by Daniel Appleman at wmnv.0e5aware.com. At Desaware, we specialize in products 
and information that share a single theme - to help Visual Basic programmers become great programmers, take 
full advantages of the capabilities ofVB, and even go beyond those capabilities when necessary. 



Our products are designed to extend Visual 
Basic, and teach you advanced techniques in 
the process. Visit www.desaware.com to 
find out more about: 

The Desaware ActiveX Gallimaufry 

An eclectic collection of contros written in 
VB, with full source code to help you learn. 

SpyWorks 5 

Allows you to do almost anything in VB that 
experts can do in C++. Learn advanced 
Windows and COM programming techniques. 

VersionStamper 

Distribute your VB apps and components 
with auto-update capability. Eliminate 
component incompatibilities and conflicts. 

StorageTools 

Easy registry programming. Build complex 
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Dan Appleman, author of the 
Visual Basic Programmer's Guide 
to the Win32 API and Developing 
ActiveX Components with Visual 
Basic 5.0, is also president of 
Desaware. From Windows 
programming, to object oriented 
techniques - these books will help 
turn the newest VB programmer 
into an expert faster than you 
would believe. 



Our web site, www.desaware.com, is not 
argest VB related web site by a long 
But when it comes to quality, you'll 
find none better. Our articles are designed 
to really teach, not just overwhelm you 
with obscure tips. Articles such as: 

Are you learning Visual Bask Backwards? 
Summertime Blues... 

From Novice to Guru - How to Learn VB.... 

Find these articles and more at: 

www.dGsawarG.com 

Desaware 

1100 E. Hamilton Ave. #4 

Campbell, CA 95008 

(408) 377-4770 fax: (408) 371-3530. 

Email: support@desaware.com 

www.desaware.com 
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Migrate to VB 



by Jeffrey P. McManus 



Your mastery of 
Cobol, C/C++, Pascal, 
and other languages 
will give you a leg up 
on learning VB — once 
you unlearn some 
formerly useful skills 
and coding habits. 



These days, corporate developers 
are flocking to Visual Basic 5.0 
from other programming lan- 
guages. And while you can trans- 
plant a certain amount of knowledge, 
it's easy to experience grief when mak- 
ing the jump. 

Here I'll help you adapt to Visual 
Basic, whether you're coming from pro- 
cedural languages such as C or Cobol, 
or from earlier versions of Visual Ba- 
sic — particularly VB3 and earlier (for a 
cross-language coding comparison, see 
Table 1). As you study VB5, you'll find 
that four key features set it apart: 

• VB is visually oriented. You create a 
user interface (UI) in VB by drawing it 
with your mouse VB5 includes some 
new features that help you create a cool 
UI more easily. 

• VB is event-driven. Most of the code 



you write in VB executes in response to 
events. Understanding the events gen- 
erated by various elements of your ap- 
plication will put you on track. 

• VB is object-based. Most of the UI's 
elements are expressed as program- 
mable objects, and you can create other 
kinds of objects as well. 

• VB includes an integrated develop- 
ment environment (IDE), which pro- 
vides much of VB's power. This includes 
powerful tools to manage projects, wiz- 
ards to simplify complex or tedious 
operations, and some of the more mun- 
dane elements of the language such as 
the compiler and debugger. Mastering 
the IDE will give you a big leg up on 
mastering VB. 

Keeping these points in mind will 
give you a basic framework to fill in as 
you study VB. In fact, I recommend 
keeping them on your mind by taping 
them to your forehead for the next 
month or so. Write them down back- 
wards so you can read them in a bath- 
room mirror. 

Now, using this framework, I'll walk 
you through the most common and use- 
ful features of VB — including those most 
likely to trip up migrating developers. 

First and foremost, VB is a visual 
development environment. You build 
the UI visually, with a minimum of code 
in most cases. To familiarize yourself 
with this process, simply do it. VB 
makes it easy to get started. Best of all, 
you can easily recover from picky little 
mistakes, because you can build inter- 
faces so easily. 

For example, say you've been hired 
to create an order-tracking system for 
a wholesaler that sells animals to pet 
shops. Your application needs to cal- 



culate the retail price and shipping 
cost of each animal, given its whole- 
sale price and weight. 

BUILD CODE WITHOUT CODING 

Start building the app by launching VB 
and selecting a Standard EXE project. If 
you were using a procedural language, 
at this point you'd start writing code to 
store information pertaining to your 
business problem, as well as creating 
the user interface. But when you create 
a new VB project, you're confronted 
with a form that's just begging for you 
to place UI controls on it. 

Place those UI controls with the VB 
toolbox, the core of visual interface 
design. You can create controls on the 
form by clicking on a tool in the 
toolbox, then click-dragging it onto the 
form. But most experienced VB devel- 
opers simply double-click on the tool, 
then resize it later. 

Once you've created a few text boxes 
on the form, you can move them (by 
click-dragging on the center of the text- 
box controls) and resize them (by click- 
dragging on an edge of the control, or on 
one of the blue handles on the corner). 

The honeymoon might end once 

Jeffrey P. McManus is an independent con- 
sultant, developer, and corporate trainer. 
He is the author of The Visual Basic Com- 
ponents Sourcebook (Ziff-Davis Press), 
an encyclopedia of 
commercially avail- 
able ActiveX controls. 
You can e-mail him 
at jeffreyp@sirius. com 
or reach him on 
the Web at http:// 
www. redblazer. com/ 
books/. 
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Visual Basic 


C 


Pascal 


Cobol 


C++ 


Written by 


jeffreyp@well.com 


esoft@well.com 


djello@well.com 


ronks@well.com 


maj@well.com 


Variable declaration 


Dim x As Long 


long intxflOO]; 


var 
x: integer; 


77 X PICTURE IS 9(8). 


double x = 0; 


Constant declaration 


Public Const sngPi = 3.14159 


const float sngPi=3.1 41 59; 


const 
sngPi = 3.14159: 


77 PI-CONST PICTURE IS 
9V9(5) VALUE IS 3.14159. 


conslfloat sngPi=3. 1 41 59; 


Assignment statement 


x = 15 


x=15; 


x := 15 


MOVE 15 TO X. 


x=15; 


Function with return 
value 


Public Function ReturnPiO _ 
As Single 

RefurnPi = 3.14159 
End Function 


float ReturnPi(void) 
{ 

return(3.14159); 

} 


function ReturnPi: real; 
begin 

ReturnPi := 3.14159 
end 


CALL 'PGM01 ' 
USING RETURN-PI. 

PROCEDURE DIVISION 
USING SET-PI-VALUE. 
MOVE 3.14159 TO 
SET PI-VALUE. 

EXIT. 


float ReturnPiO { 
return (3.14159); 

} 


Subroutine with 
argument 


Public Sub DoWork_ 
(intArg As Integer) 
Debug.Print intArg* 2 

End Sub 


void DoWorMint intArg) 
{ 

DebugPrint(intArg*2); 
return; 

} 


procedure DoWork 
(intArg: integer); 

begin 
writeln(intArg * 2) 

end 


CALL 'PGM02' USING INT-ARG. 

PROCEDURE DIVISION USING 
ARGUMENT-TO-MULTIPLY. 

MULTIPLY ARGUMENT-TO- 

MULTIPLY BY 2 GIVING 

BIGGER-ARG. 

DISPLAY BIGGER-ARG. 
EXIT. 


void DoWork(int intArg) { 
cout « (intArg*2) 
« endl; 

} 


If-Then 


If intValue = True Then 

Debug.Print "It's true." 
Else 

Debug.Print "It's false." 
End If 


if(intValue==TRUE) 

DebugPrintC'lt's true."); 
else 

DebugPrintC'lt's false."); 


if booleanValue = True 
then writeln('lt"s true.') 
else 

writeln('lt"s false.') 


IF INT-VALUE IS EQUAL TO 
TRUE-CONDITION 

DISPLAY "IT'S TRUE." 
ELSE 

DISPLAY "IT'S FALSE.". 


if (intValue) { 

cout « "It's true." 

« endl; 
} else { 

cout « "It's false." 

« endl; 

} 

switch (intChoice) { 
case 1: 
cose 2: 

cout « 'The value is " 
« intChoice « 
"." « endl; 
break; 
default: 
cout « 'The case is 
unhandled" « endl; 
break; 

} 

Continued on ncxt pagc. 


Case logic 


Select Case intChoice 
Case 1 

Debug.Print "The value is 1 ." 
Case 2 

Debug.Print 'The value is 2." 
Case Else 
Debug.Print _ 
"The case is unhandled." 
End Select 


switch(intChoice) { 
case 1 : 

DebugPrintC'The value is In- 
break; 
cose 2: 

DebugPrintCThe value is 2."); 
break; 
default: 
DebugPrint 

("The case is unhandled."); 
break; 

} 


case intChoice of 
T : wrileln(The value is 1 .'); 
2: writeln(The value is 2.') 
else writeln 

('The case is unhandled.') 
end 


IF INT CHOICE IS EQUAL TO 1 
DISPLAY "THE VALUE IS 1." 
ELSE 

IF INT-CHOICE IS EQUAL TO 2 
DISPLAY "THE VALUE IS 2." 

ELSE 

DISPLAY "THE CASE 
IS UNHANDLED.". 



Table 1 . Five Ways to Skin a Cat. When you migrate from one language to another, you learn the meaning of the phrase, "the more 
things change, the more they stay the same. "As this table shows, many of the code constructs found in major programming languages 
are available in VB5. Rather than provide a superpowered miracle language that takes a genius to code, VBgets most of its power from 
its integrated development environment (IDE). Mastering VB means mastering the language as well as techniques such as visual interface 
design and debugging. 
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A Coder's Rosetta Stone (Continued) 



Visual Basic 



Looping 



Fixed iteration 



Assign property 
to object 

Execute method 
of object 



Do While intFlag = False 
intFlag = intFlag + 1 
Loop 



Forx = 1 To 100 
Debug.Print x 
NextX 



while (lntflog==FALSE) 
intFlog++; 



for(x=l;x<=100;x++) 
DebugPrint(x); 



Instantiate object Set MyObject = New Object Not supported. 

MyObject.Property = x Not supported. 



MyObject.Method 



Not supported. 



Pascal 



Cabal 



C++ 



while n <> do 

n := n + 1 



for x := 1 to 1 00 do 
writeln(x) 



* UNTIL INT FLAG 
EQUAL TO FALSE-CONDITION 

ADD 1 TO INT-FLAG 
END-PERFORM. 

PERFORM ITERATION-PROC VARYING 
I BY 1 UNTIL X IS GREATER 



MyObject := Object.Create 
MyObject.Property := x 

MyObject.Method 




Not supported. 



Special thanks to Earl Crabb, Mike Janson, Ron Sipherd, and Darius Bacon for help 




here.-J.lt. 



for(; HntFlag; intFlag++) { 

} 



for(x=l;x<=100;x++){ 
cout « x « endl; 

} 



MyObject = new Object; 
MyObject. Property=x; 

MyObject.MethodO; 



c 



reating a Ul visually 
takes less time than 
coding one, but it still 
can get tedious. 
Fortunately, VB5 
eases the task. 



you've spent a few minutes dragging around controls and 
resizing them. Sure, creating interfaces visually takes less 
time than writing code, but it still can get tedious. Fortu- 
nately, VB5 has some cool new features that ease the task of 
tweaking the user interface. 

One of these new features lets you synchronize the 
dimensions and position of groups of controls (see Figure 
1). To synchronize the controls' height and width, start 
by selecting all of them. Do this by holding down the Shift 
key and clicking on each control you want to synchronize. 
Just make sure the last control you select has the dimen- 
sions you want them all to have. Select the Format menu 
command, then Make Same Size, then Both. 

The Format menu lets you synchronize groups of con- 



trols in other ways as well. Most of these capabilities are 
new to VB5, and all of them work in essentially the same way: 
you select a group of controls and execute the command, 
which uses the last control you select as the pattern for the 
other controls to follow. Typically I use this combination of 
commands to synchronize a group of text boxes on a form: 

• Format, Align, Lefts. This causes all the controls to align 
to the left side of the last-selected control. 

• Format, Horizontal Spacing, Remove. This removes all 
the horizontal space between the controls. 

• Format, Horizontal Spacing, Increase. This puts a consis- 
tent amount of space between the controls. 

Once you've got your controls situated, set properties 
for each. Start by getting rid of the default Text properties 
for the text boxes. You can set certain properties for a group 
of selected controls simultaneously, but inexplicably, you 
can't do this with the Text property. You must set each Text 
property individually. 

Select a single text box, right-click on it, and choose 
Properties from the popup menu that appears. This either 
brings up the VB Properties window or gives it the focus, 
depending on whether it was already visible. Clear the Text 
property of each control by selecting the Text property in the 
Properties window, then deleting the value for the property. 

You could select the property from the Properties win- 
dow, but I recommend getting in the habit of right-clicking on 
controls to alter their properties. This way you can access 
the custom property pages provided for many controls. With 
such pages, you can alter controls' properties using an en- 
hanced visual interface. 

After you've cleared the controls' Text properties, you can 
create labels alongside the text boxes (see Figure 2). Finally, 
assign your text boxes names that reflect their purposes. The 
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f you're coming from an 
object-oriented language 
such as C++, you'll 
probably need to 
unlearn some things. VB 
puts its own spin on 
object orientation. 



VB Properties window lets you assign your text boxes the 
names you'll use to refer to them in code. In the animal 
wholesaler sample app, I use txtAnimal, txtWeight, 
txtWholesale, txtShipping, and txtRetail. The "txt" prefix, a 
common VB naming convention, helps you determine what 
type of UI control you're dealing with. 

PROCEED TO USE EVENTS 

You now have a lovely user interface — and it took zero lines 
of code to create. Next comes a step that will require coding: 
writing an event procedure to perform calculations when a 
user enters text in the text boxes. 

VB's event-driven model is its second major distinguish- 
ing characteristic. "Event-driven" means that code gener- 
ally executes in response to an event (for more information 
on event-driven programming, see "Design True Event-Driven 
Code" in the August/September 1994 issue of VBPJ). Ex- 
amples of events include a user clicking on a button or 
selecting a menu item, but they can also include more exotic 
actions. Completion of a file download in a communications 
component is an event. So is the simple passage of time 
when you're using the VB Timer control. There are many 
others. For now, though, I'll stick to using the more mun- 
dane events associated with the majority of controls you're 
likely to encounter in Visual Basic. 

To keep things simple for the sample application, write 
code in the LostFocus event of the text box. This event takes 
place when the user moves from one text box to another 
during data entry (usually using the Tab key). To access the 
code for the LostFocus event, double-click on the text box 
txtWholesale. This pops up the code window, which dis- 
plays Change, the control's default event. Using the upper- 
right combo box in the code window, select the LostFocus 
event. The definition for the LostFocus event procedure 
appears (see Figure 3). 

In this event procedure, write code that fills in the ship- 
ping and total retail price fields: 

Private Sub txtWhol esal e_LostFocus ( ) 

txt Shipping. Text - txtWei ght . Text * 7.35 

txt Ret a i 1 .Text - (txtWhol esale*1.4) + txt Shipping. Text 

End Sub 
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Figure 1. Sizing Up Your Interface. VB5 provides several new 
tools to resize and synchronize controls on forms, such as the 
commands under the Format menu. 
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Figure 2. Completing the Interface. After you've cleared the 
controls' Text properties, you can create labels alongside the text 
boxes. Finally, assign your text boxes names that reflect their 
purposes. Then, once you've created your user interface, you can 
write event procedures that process data in the application. 

BASE YOUR APPS ON OBJECTS 

VB's event-driven character goes hand in hand with its 
object-based (as opposed to object-oriented) architecture. 
Many of VB's most important concepts and technologies are 
expressed in terms of objects. 

If you've never used an object-based language, you'll 
find that using objects provides a number of benefits. If 
you're coming to VB from an object-oriented language 
such as C++ or Smalltalk, you'll probably need to unlearn 
a number of things you already know about objects. As 
with many facets of technology, VB puts its own spin on 
object orientation. 

Objects help you mainly because of the way they 
abstract complexity. You don't have to know how some- 
thing works in order to use it. Say you need to implement 
a feature such as Internet e-mail in your application. You 
know in general terms how Internet e-mail works, but 
you don't want to drill down into the complicated func- 
tion calls and algorithms involved with network commu- 
nication and electronic mail. Instead, you use a compo- 



http:/ /www. windx.com 



Getting Started with Visual Basic SPRING 1998 31 



Getting Started with 
Visual Basic 



Everything you need. . . 




Gettlnn^'ui 



YourHands-On 
Guide to VB 

Build Yout First 

Leverage VB 
in Offi«e 97: 

• WORD 
.BtCft 

• OUTLOOK 



• ACCESS 



Heart 




• Program Office 97 
•Learn Visual Basic® 5 

• Extend Excel 

• Create a Web Site 

• Simple Apps in Hours 

• Error Handling & Debugging 

• Build ActiveX" Controls 

• And much, much more! 

- 



FTP 

M mm pub 



FAWCETTE 
TECHNICAL 
PUBLICATIONS 



209 Hamilton Avenue • Palo Alto, CA 94301 
Phone:650-833-7100 • Fax:650-321-3818 



. . . to help you master the hard part ofVB Programming! 
. . . to write first-rate applications! 
. . . to get started! 

Whether you're a power user from the VBA environment, 
new to programming or just moving to VB from another 
programming language, Getting Started with Visual 
Basic is everything you need to familiarize yourself with 
today's VB programming challenges and solutions. 

Getting Started with Visual Basic focuses on the 
fundamentals of VB programming. The practical, 
hands-on features, departments, and columns in 
Getting Started get you on your way to VB mastery with: 

|> Basic explanations of programming 

^ Step-by-step examples for creating simple, 
useful applications 

^ Product listings tailored to readers' needs 

|> Recommended resources to continue and expand 
learning 

Don't delay. Get started creating your own Visual Basic 
applications right away! 

Get Getting Started while the getting's good! 

Getting Started is now published four times a year. 
Subscribe Now and get over 30% off the annual 
cover price for a year's worth of info-packed issues. 
Pay only $24.95 for a full year (4 issues)- save today! 

CALL to order at: 

1-800-848-5523 

Reach us online at http://www.windx.com or 
email us at customerservice@fawcette.com 



Visual Basic is a registered trademark of Microsoft Corporation. ActiveX is a trademark of Microsoft Corporation. Savings based on annual newsstand cover price of $35.80. 
Subscription begins upon receipt of payment. Please allow 4 weeks for delivery of first issue. International subscriptions must be payable in U.S. Dollars plus postage: 
Canada/Mexico add $67year for surface delivery; all other countries add $15/year for airmail delivery. 



Migrating to VB 




Figure 3. The Main Event. Selecting an event in the upper-right 
combo box in the code window displays the definition for that 
event procedure. Writing code for that event procedure lets your 
program respond to events, such as a button click or completion of 
a file download. 

nent — an object that handles the complicated part of 
Internet e-mail for you. In code, you merely tell the 
component to send the mail, and you're off. 

You'll reap other benefits from using objects. For ex- 
ample, VB5 enables you to create components that other 
developers can use. The idea here is that you should create 
the logic that runs your business just once, then reuse that 
same logic over and over. Of course, you can do this with 
any code construct in any language — if you're careful. But 



VB5 



Option Expl icit 

******************************************************* 
' Class Module: CAnimal 

' Author: Jeffrey P . McManus (jef f reypOsi ri us . com) 
' Created on: December 15, 1997 

' Descri ption : Cal cul ates animal price based on wei ght , 
' shipping cost & retail markup. 

******************************************************** 

Pri vate mstrAnimal Name As Stri ng 

Private ms ng We ight As Single 

Pri vate mcurWhol esal ePrice As Currency 

Pri vate mcurShipping As Currency 

Private mcurRetai 1 Pri ce As Currency 

Const mcurShi ppingRate As Currency - 7 . 35 

ConstmsngMarkupAsSingle-1.4 

Public Property Get AnimalNamet ) As String 

Animal Name -mstrAnimal Name 
End Property 

Publ ic Property Let Animal Name (By Val strNew As Stri ng) 

mstrAnimal Name - strNew 
End Property 

Publ i c Property Get WeightO As Single 

Weight - msngWeight 
End Property 

Public Property Let Weight(ByVal sngWeight As Single) 

msngWeight-sngWeight 
End Property 



using class modules in VB can go a long way toward making 
this reusability easier to achieve. 

In the animal wholesaler application, the logic that calcu- 
lates the total retail price of an animal is a prime candidate 
for objectification, because you should be able to use it 
repeatedly, both within this app and future apps. 



u 



sing class modules in 
VB can qo a lonq 

reusability easier 
to achieve. 



Begin by placing the logic pertaining to your mer- 
chandise in a class module. This special kind of code 
construct in VB defines an object. An object is composed 
of properties, which resemble variables in procedural 
languages, and methods, which resemble subroutines or 
functions. The code that defines the object's properties 
and methods is physically stored within the same code 
construct. This makes it easier to maintain and reuse the 



Publ i c Property Get Who! esal ePri ce( ) As Currency 

Whol esa 1 ePr i ce- mcurWhol esaleP rice 
End Property 

Publ ic Property Let Whol esal ePricet By Val curNew_ 

As Currency) 

mcurWhol esal eP rice - curNew 
End Property 

Publ ic Property Get Shippingt ) As Currency 

Shi pping - mcurShipping 
End Property 

Pri vate Property Let Shi ppi ng( By Val curNew As 

Currency) 

' Private: Can only be set by CalculatePrlce 

mcurShipping - curNew 
End Property 

Public Property Get Retail Price( ) As Currency 
Retail Price - mcurRetai 1 Pri ce 

End Property 

Pri vate Property Let Retail Price (By Val curNew As _ 

Currency) 

' Private: Can only be set by Cal cul atePri ce 

mcurRetai 1 Price - curNew 
End Property 

Public Sub CalculatePricet ) 

Shi ppi ng - Wei ght * mcurShi ppi ngRate 

Retai 1 Price - (Whol esal ePri ce * msngMarkup) +_ 

Shipping 
End Sub 



Listing 1 . Build a Classy Module. One key to modern programming is to put your app 's business logic in a class module. Begin by 
adding a new class module to your project using the Add Class Module command from the Project menu. Once the class module appears, 
give it a name by assigning its Name property in the VB Properties window. Call this class module CAnimal. If you want this class module 
to satisfy your business problem, assign it properties for animal name, weight, wholesale price, shipping, and retail price. Code these 
properties using Property Let and Property Get procedures. 
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code. The act of combining data and the logic that acts 
on that data in the same place is an example of the 
object-oriented principle of encapsulation. 

You should think in terms of objects, properties, and 
methods from the outset of your work with VB5. This is 
because object-oriented programming is as much a state 
of mind as it is a programming technique. You don't have 
to use objects to program successfully in VB — in fact, VB 
didn't even have classes until VB4. But once you've 
worked with classes in a few projects, you'll wonder how 
you got along without them. And in order to master VB's 
object-based programming, you've got to get an object 
mindset early on, evaluating every aspect of your devel- 
opment from beginning to end in terms of objects. As the 
prison warden in Cool Hand Luke liked to say, a man can't 
learn if his mind ain't right. 



V 



B5 makes 
debugging easier, 
thanks to 

improvements in the 
IDE's interface. 



BUILD A MODULE WITH CLASS 

Now that you have an idea of why objects and classes are 
useful, it's time to put your app's business logic in a class 
module. Begin by adding a new class module to your project 
using the Add Class Module menu item under the Project 
menu. Once the class module appears, give it a name by 
assigning its Name property in the VB Properties window. 
Call this class module CAnimal. 

For this class module to satisfy your business prob- 
lem, it must have the properties of animal name, weight, 
wholesale price, shipping, and retail price. Code these 
properties using Property Let and Property Get proce- 
dures (see Listing 1). 

If you're coming from a language that doesn't support 
classes and objects, it might not seem logical to pump so 
much extra code into a project. I agree that you could 
achieve the same result with far less non-object-based 
code. And in fact, this code doesn't execute more efficiently, 
arrive at a better answer, or perform better than conven- 
tional, procedural code. However, what it does provide is 
the ability for you, the developer, to maintain all the infor- 
mation pertaining to the processing of animal data, as well 
as reuse this code in any context you see fit. The extra 
investment you make now pays off in the long run. 

Return to the form and add this code to the LostFocus 
event of the Wholesale text box (replacing the previous 
code you had in the LostFocus event): 

PrivateSub txtWhol esal e_Los t Focus ( ) 
Dim MyAnimal As CAnimal 
Set MyAnimal - New CAnimal 




Figure 4. Take a Break. Breakpoints permit you to freeze 
execution to inspect the state of your application. VB5's IDE lets 
you create breakpoints with a single click. 

MyAnimal .Animal Name - txtAnimal .Text 
MyAnimal . Wei ght - txtWeight .Text 
MyAnimal . Who! esal ePri ce - txtWhol esal e. Text 
MyAnimal .CalculatePrice 
txtShi ppi ng .Text - MyAnimal .Shipping 
txtRetail .Text - MyAnimal .RetailPrice 
End Sub 

Now you're also starting to reap the benefits of abstrac- 
tion. Once you place calls to the class module from your 
form, its complexity is abstracted within its properties and 
methods. The programmer who uses this class doesn't give 
a hoot what the shipping rate is or how it was calculated. 
The fact that it's a constant equal to 7.75 — declared in the 
class module — doesn't matter in a functional sense. The 
value could just as well come from a registry setting or a 
database call. The bottom line is that the class is pro- 
grammed the same way, regardless. Even if the implementa- 
tion of the CalculatePrice method changes over time, the 
way you call it remains the same. 

Note that object-based programming lets you take ad- 
vantage of other technologies, most notably ActiveX user- 
interface controls and ActiveX code components. Using 
ActiveX permits you to independently compile business 
logic that can be shared among multiple apps and distrib- 
uted over a network. 

Now that your app performs some useful work, it's time 
to move on to the fourth unique area of VB: the power 
provided by the integrated development environment (IDE). 
Much of the serious business of building and deploying an 
app takes place within the IDE. The IDE can especially help 
you with debugging and compiling the app. 

USE THE IDE TO WRAP UP AN APP 

VB5 makes debugging easier than ever, thanks to improve- 
ments in the IDE's interface. You'll especially benefit from 
the way the IDE now lets you create breakpoints with a 
single click. A breakpoint pauses execution of your code so 
you can inspect variable values or check an app's status at 
a given instant. 

To see how this works, open the code window of the 
sample wholesaling app, and click in the margin of the code 
window to the left of the line of code MyAnimal. CalculatePrice 
(see Figure 4). A breakpoint appears. Now run the code by 
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selecting Start from the Run menu. Fill in the first three text 
boxes in the app. As you move the focus off the Wholesale 
text box, the breakpoint is hit and the IDE pauses execution 
of the app. You're now in break mode. 

Break mode lets you step through code one line at a time 
by selecting Step Into from the Debug menu (or by using the 
F8 function key). When you do this, the next line of execution 
(the first line of code in the CalculatePrice method in the 
CAnimal class) is highlighted. 

Here you can take advantage of another nifty, unique VB5 
feature, known as Auto Data Tips. This feature helps you 
inspect the value of variables and properties. Auto Data 
Tips works in break mode only. To view the value of a 
variable, position your mouse pointer on top of the variable 
without clicking (see Figure 5). 

Once you debug your app, compile it so you can distribute 
it to users. In VB5, compilation takes two steps: compiling the 
app, and creating a setup application using VB's Setup Wizard. 

To compile a VB5 app, select the File menu, then the 
Make command. Compiling in VB is much less painful than 
in some other languages, mainly because many of the 
programming errors you'd usually run into at run time can 
be easily weeded out in the development environment. So 
the traditional code-compile-debug cycle is blurred in VB, 




Public Property Get RetailPriceO As Currency 
RetailPrice a mcurRetailPrice 

End Property _ 



Private Property Let RetailPrice(ByVal curNew As Currency) 
' Private: Can only be set by CalculatePrice 
mcurRetailPrice = curNew 

End Property 




Figure 5. Inspecting Your Data. New to VB5, the Auto Data 
Tips feature lets you easily inspect the value of a variable in 
break mode. 



cl and Options 



The wizard uses your project file (.vbp) or a previously 
saved template file (,swt) to determine the list of files 
to distribute with your application. 




Options 

(• Create a Setup Program 

V Generate Dependency File 
C Create internet Download Setup 
r* Generate Dependency File Only 



Figure 6. The Wonderful Wizard. Your job's not over once you 
compile your app — you must create a setup program to deploy your 
app to users. VB's Setup Wizard simplifies this process. 

to your benefit. 

After you build your app into a distributable binary 
file, create the Setup program your users will use to 
install it. If you're upgrading from a previous version of 
VB or another Windows development environment, you 
might be accustomed to simply copying your binary ex- 
ecutable onto a user's computer. But you don't want to do 
this with a VB app. For one thing, VB apps typically 
comprise many more files than the compiled EXE. For 
another, many components that must be distributed with 
your app also must be specially registered on users' 
computers before your app can use them. 

Fortunately, the Setup Wizard takes care of both of 
these problems for you, tracking file dependencies as 
well as creating a setup application that knows how to 
register components on your users' systems. Better yet, 
running the Setup Wizard is simplicity itself: simply 
launch it from the Visual Basic group in your Windows 
Start menu and answer the questions the Wizard asks 
about your app (see Figure 6). When you're done, you'll 
have a folder full of files you can distribute to users for 
installation on their machines. 

I hope this walk-through and the tips I've provided 
will free you from 98-pound-weaklingdom and put you 
well on your way to becoming a VB Schwarzenegger. And 
if you ever get confused, look at the list of important 
points taped to your forehead. They could be the most 
important things you'll ever tape to your body. ■ 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club," in the Table of Contents. 

Migrate to VB 
Locator+ Codes 

Listings for the entire issue, including listings and sidebar code for this 
article (free Registered Level): GS198 

Listings and sidebar code for this article only (subscriber Premier Level): 
JMGS198 
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Approach VB5 with 

The Wizard 



by Chris Barlow 



Use Visual Basic 5.0's 
Wizard to get your feet 
wet. Then, jump right in 
and write a full-fledged 
text editor. 



Microsoft has done a great job of 
making Visual Basic 5.0 easy for 
the new programmer — hardly 
a trivial task because people 
come to Visual Basic from so many direc- 
tions. Perhaps you're a user who first 
heard about Visual Basic when you used 
some of the thousands of applications 
written in VB. Then you read that Visual 
Basic is the easiest way to write powerful 
Windows applications. Perhaps you used 
Visual Basic for Applications in a product 
such as Microsoft Office to record some 
Visual Basic macro code. 

You might be a mainframe program- 
mer who always wanted to write your 
own robust, standalone Windows appli- 
cations but didn't know where to start. 
Maybe you even tried prior versions of 
Visual Basic and were intimidated by the 
blank form displayed when you clicked 
on the New Project button — how do you 
know what to do next? 

One of the simplest ways to get started 
on your first Visual Basic application is to 
use VB's new Application Wizard. I'll intro- 
duce you to the Wizard , which creates forms 
and writes code for you. Later I'll guide you 
through the easy creation of a text editor 
for which you'll write the code yourself. 



Application Wizard - Interface Type 




What type of interface would you like for your 

application? 



Consists of a main window 
which visually contains child 
windows. 



(• Multiple Document Interface (MDI) 



C Single Document Interface (SDI) 



C Explorer Style 




Figure 1 . Pick the User Interface. The Application Wizard lets you choose from three 
types of user interface. Try them all and see how the menu and controls differ. 



The Application Wizard helps you cre- 
ate a complete application with a main 
form and several ancillary forms. The main 
form includes a toolbar, status bar, and 
complete application menu. The Wizard 
writes some of the code to activate menu 
and toolbar events, and it adds comments 
to indicate where you need to add code to 
activate a program feature. 



The Wizard makes a great learning de- 
vice. Let it build several different kinds of 
applications, and then single-step through 
each application's code. Notice the way 
the menus are organized, the way the 
toolbar button calls the menu procedures, 
and the way the data access forms oper- 
ate. Try changing some of the code, adding 
menu items, and adding forms. Exploring 



Chris Barlow is president of SunOpTech, a developer of document management, decision- 
support, and supply chain applications, including the ObjectBank, ObjectOrder, and 
ObjectJob systems. He holds two U.S. Patents related to software for decentralized 
distributed asynchronous object-oriented and scheduling systems. Chris, who is a frequent 
speaker at VBITS, Tech »Ed, and DevDays and has been featured in two Microsoft videos, 
holds degrees from Harvard Business School and Dartmouth College. Reach Chris at 
Chris@VBExpert.com or through his Web server at www. VBExpert.com. 
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the many features of the Wizard is one of 
the best ways I know to learn Visual Basic. 

When you start the Application Wizard, 
you must choose a user interface type (see 
Figure 1). You can choose from three differ- 
ent types of user interface: Single Docu- 
ment Interface (SDI), Multiple Document 
Interface (MDI), or Explorer Style. 

Choosing SDI creates an application wit h 
a single main form containing menu items, 
a toolbar, and a status bar. You should use 
SDI for an application such as Notepad, 
which displays a single set of user data. 

Choosing MDI creates an application 
with a single main form and multiple child 
forms. Like the SDI application, the main 
form contains menu items, a toolbar, and 
a status bar. However, when you click on 
the File menu's New menu item, the appli- 
cation creates another instance of the 
child form. ATextBox control lies on each 
child form. The main form features a Win- 
dow menu that allows you to view, cas- 
cade, or tile the child forms. You should 
use MDI for an application such as Word, 
which must have several different docu- 
ments open at the same time. 

Choosing Explorer Style creates an 
application with a single main form con- 
taining menu items, a toolbar, and a sta- 
tus bar. However, it also has a TreeView 
and a ListView control separated by a 
splitter bar, so you can write an applica- 
tion like the Windows Explorer. 

CHOOSE YOUR MENUS 

The next step in the Application Wizard 
lets you choose the menus you want on 
the form (see Figure 2). The great thing 
about these menus is that the Wizard 
adds almost 30 standard menu items to 
the form. For example, the View menu has 
menu items to control the display of the 
toolbar and status bar. When you check 
these menu items, the associated object 
is displayed. The Wizard adds code to 
these Click events to toggle the Checked 
property of the menu item and toggle the 
Visible property of the object: 

Private Sub mnuViewTool bar_Cl ick( ) 

If mnuViewToolbar. Checked Then 
tbTool Bar . Vi sibl e - Fal se 
mnuViewToolbar. Checked - False 

Else 

tbTool Bar. Visible -True 
mnuViewTool bar. Checked - True 

End If 

End Sub 

These menu items use standard no- 
menclature and standard shortcut keys. 
The File menu's Open menu item is al- 
ways named mnuFileOpen and always has 
a Ctrl-0 shortcut key combination. The 
mnuFileOpen_Click event already con- 
tains this code to display the File Open 




Figure 2. Choose Your Menu. Menus have always been tedious to build. The 

Application Wizard creates a complete set of application menus, most with code to handle 
much of the functionality. 



dialog from the CommonDialog control 
that the Wizard added to the form: 

PrivateSubmnuFil eOpen_Cl ick( ) 
Dim sFi 1 e As Stri ng 
With dlgCommonDialog 
•To Do 

'set the flags and attributes of 
'the common di a 1 og control 
.filter -"All Files (*.*)|*.*" 
.ShowOpen 

If Len( .filename) - Then 

Exit Sub 
End If 

sFi 1 e - . f i 1 ename 
End With 
'To Do 

'process the opened file 
End Sub 

Notice the To Do comments on the 
fourth and fourteenth lines. These com- 
ments are typical of the code the Applica- 
tion Wizard generates. After buildingyour 
project, you can search for "To Do" to find 
where you need to add code. Some proce- 
dures, such as mnuViewToolbar_Click, 
need no additional code. Other proce- 
dures, such as the File menu's Print menu 
item, simply display a message box re- 
minding you "Print code goes here." 

The next step in the Application Wizard 
lets you choose if you want to store all your 
control captions in a Resource file. If you 
choose this option, you need to specify the 
location for the RC file that the Wizard 
compiles into the RES file for your project. 
Rather than sett ing the form caption, menu 
captions, control captions, and tooltips 



properties directly, the Wizard creates an 
RC file similar to this excerpt: 



STRINGTABLE DISCARDABLE 
BEGIN 



1000 


"&File" 


1001 


"SOpen" 


1002 


"&Find" 


1003 


"Sen&d to" 


1004 


"&New" 


1005 


"SDelete" 


1006 


"Rena&me" 


1007 


"Propert&ies" 


1008 


"&Close" 


1009 


"&Edit" 


1010 


"&Undo" 


1011 


"Cu&t" 


1012 


"&Copy" 


1013 


"&Paste" 


1014 


"Paste &Special 


1015 


"Select &A11" 


1016 


"Slnvert Selection" 



The numeric ID numbers, rather than 
the text, are written into the Caption or Tag 
properties of the form, menu, and control 
objects. For example, the Open menu item 
on the File menu has a caption of "1001" 
rather than "Open" (see Figure 3). Place 
these strings in a string table and compile 
them into a resource file, rather than plac- 
ing them directly onto your forms, to eas- 
ily create an application that displays forms 
in multiple languages. You can do this by 
expanding the string table with additional 
sets of strings in each language. 

In the Form_Load event, the Wizard 
adds code to read the strings from the 
resource files using the built-in 
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LoadResString function. To load the form 
caption, for example, the procedure con- 
verts the form's Tag property to an integer 
to call the LoadResString function and set 
the result in the form's Caption property: 

'set the f orm' s capti on 
frm. Caption - 

LoadResStri ngtCInt (frm. Tag)) 

Similarly, Label and Menu controls are 
part of the form's Controls collection, so 
the procedure can loop through the Con- 
trols collection (using the For Each . . .Next 
statement) and retrieve the proper cap- 
tion. Notice how you use the TypeName 
function to determine the type of control: 

'set the controls' captions using 
'the Caption property for menu 
'items and the Tag property 
'for all other control s 
For Each ctl In frm. Control s 
sCtlType - TypeName(ctl ) 
If sCtlType - "Label " Then 
ctl . Capti on - _ 
LoadResString. 
(Clnttctl .Tag)) 
El self sCtlType - "Menu" Then 
ctl .Capti on - LoadResStri ng _ 
(CInt(ctl .Caption)) 
' (other controls here...) 
End If 
Next 

I've removed the code for the other con- 
trols from this example (see Listing 1 for the 
complete code generated by the Wizard). 

You even can add a custom Web browser 
that jumps to your home page. The next step 
in the Application Wizard creates a browser 
form that uses the Web Browser control 
from the Microsoft Internet Controls (con- 
tained in the SHDOCVW.DLL) to add the 
same functionality of Microsoft Internet 
Explorer to your application. The code gen- 
erated by the Wizard is easy to under- 
stand — simply call the Navigate method of 
the control with a URL and add the URL to 
the combo box so the box displays the URL: 

Private Sub Form_Load( ) 
WebBrowser 1 .Navigate StartingAddress 
cboAddress .Text - StartingAddress 
End Sub 

The next step in the Application Wiz- 
ard gives you a choice of four standard 
forms to add to your application and lets 
you pick additional forms from your 
Templates\Forms folder. You can add a 
Splash screen at application startup, a 
Login dialog to accept a user ID and pass- 
word, an Options dialog with four tabs for 
custom settings, and an About box. 

Next, the Wizard creates data access 
forms from the tables and queries in a data- 



base. Although these 
forms use the Data 
control and include 
code to add, update, 
and delete records 
in the database, you 
probably want to 
add your own data 
validation routines. 

Now give your 
project a name, sit 
back, and watch 
the Wizard build 
all the forms and 
generate standard 
code for your ap- 
plication. You can 
review a summary 
of the tasks the Wiz- 
ard performed and 
get started on the 
To Dos. 

CREATE A TEXT 
EDITOR 

Now that you've 
been through the 
basic steps of creat- 




Figure 3. The Wizard Pulls the Strings. The Wizard can use a 
string table in a resource file to fill the menu captions, label and 
frame captions, tooltips, and so on, based on a set of ID numbers 
the Wizard generates. 



VB5 

VERSION 5.00 

Attri bute VB_Name - "f rmMai n" 
Attri bute VB_G1 obal NameSpace - Fal se 
Attribute VB_Creatabl e - Fal se 
Attribute VB_Predecl a red Id - True 
Attri bute VB_Exposed - Fal se 
Opti on Expl i cit 

Private Declare Function 0SWinHelp% Lib "user32" Al ias _ 

"WinHelpA" (ByVal hwnd&. ByVal HelpFile$, ByVal wCommand%. dwData As Any) 

PrivateSub MDIForm_Load( ) 
LoadResStri ngs Me 

Me. Left - GetSetti ng(App. Title, "Sett i ngs" 



ight", 6500) 



ne. lgtl — laeiiei-L i ngi.ftpp . u l i e , aetti ngs 1 , 'Mai n Left" , 1000 ) 
Me. Top-GetSetting(App. Title, "Settings", "MainTop", 1000) 
Me. Width-GetSetting(App. Title, "Settings". "MainWidth", 6500) 
Me. Height-GetSettingCApp. Title, "Settings", "MainHeight 

LoadNewDoc 
End Sub 

Private Sub LoadNewDocO 

Static 1 DocumentCount As Long 

Dim f rmD As f rmDocument 
1 DocumentCount - 1 DocumentCount + 1 

Set f rmD - New f rmDocument 

f rmD. Capti on - "Document " & 1 DocumentCount 

f rmD. Show 
End Sub 



Private Sub MDIForm_Unload(Cancel As Integer) 
If Me.WindowState <> vbMinimized Then 

SaveSetting App. Title. "Settings". "MainLeft" 
SaveSetti ng App. Title, "Settings 
SaveSetting App. Title. "Settings 
SaveSetting App. Title. "Settings 
End If 
End Sub 

Private Sub mnuViewBrowser_Cl ick( ) 
Dim frmB As New frmBrowser 



Me. Left 
"MainTop". Me. Top 
"MainWidth", Me. Width 
"MainHeight". Me. Height 



CONTIHUID ON PAGE 39. 



Listing 1 . Code Created by the Application Wizard. This source was created by the 
Application Wizard for a complete MDI project with most options selected. 
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you're ready to build an application using 
your own code. One of my most popular 
columns in Visual Basic Programmer's Jour- 
nal was the February 1996 Getting Started 
column ("Your First VB4 App"), which 
showed how to write a simple text editor in 
VB4 in less than five minutes. Let's build a 
text editor with VB5 and see what's changed. 
Time each stage and see how quickly you 
can build the complete app. 

First, you can use the Wizard again to 
create the outline of your new app — 
after doing so, you simply complete some 
"To Do" items. 

So get out your stopwatch, fire up VB5, 
and start the Application Wizard. Choose 
the Multiple Document Interface (MDI) for 
the user interface type. To keep this appli- 
cation simple, choose the defaults by click- 



"Application Wizard — Finished!" dialog 
caption. Then name the application 
TextEdit5, and click on the Finish button. 
This series of operations took only 20 sec- 
onds to complete on my computer. 

The Application Wizard creates a Visual 
Basic project called TextEdit5 with two 
forms and a module, and the wizard dis- 
plays a summary report of its actions. Press 
F5 to run this project, and you will see a 
nice-looking application with a complete 
menu, toolbar status bar with date and time 
displayed, and an MDI child window with 
the caption "Document 1" (see Figure 4). 
However, the Application Wizard isn't 
magic. If you type some text and click on the 
Save menu item in the File menu, you see a 
message box that says "Save Code goes 
here!" The Application Wizard builds the 



start with "To Do," where you will need to 
add code specific to your application. 

Scan these To Do comments by right- 
clicking on frmMain in the Project win- 
dow and clicking on View Code. Press 
Ctrl-F and type "To Do." As you click on 
Find Next, you'll be able to see all the To 
Do items — my project had 25 of them. 

Before you get to work on these To Do 
items, take a closer look at the two forms 
in your project. The frmMain form has a 
Toolbar control and an associated 
ImageList control, a StatusBar control, 
and a CommonDialog control. The 
frmDocument form has only a TextBox 
control. You don't need to make any 
changes to the control on frmMain, but I 
suggest you use the RichTextBox control 
on frmDocument, rather than the TextBox 



CONTINUED FROM PAGt 38. 

frmB.StartingAddress -_ 

"http://www.sunoptech.com" 
f rmB.Show 
End Sub 

Private Sub mnuHel pAbout_Cl ick( ) 

f rmAbout.Show vbModal , Me 
End Sub 

Private Sub mnuVi ewOptions_Cl ick( ) 

f rmOptions .Show vbModal , Me 
End Sub 

Pri vate Sub 

mnuViewStatusBar^Cl ick( ) 

If mnuVi ewStatusBar .Checked Then 
sbStatusBar.Visible-False 
mnuViewStatusBar. Checked -_ 
Fal se 

Else 

sbStatusBar. Vi sibl e - True 
mnuViewStatusBar. Checked -_ 
True 
End If 
End Sub 

Private Sub mnuVi ewTool bar_Cl ick( ) 
If mnuViewTool bar .Checked Then 
tbTool Bar.Visible-False 
mnuViewTool bar .Checked - Fal se 
Else 

tbTool Bar. Visible -True 
mnuViewToolbar. Checked -True 
End If 
End Sub 

PrivateSub tbTool Bar_ButtonCl i ck _ 
(ByVal Button As _ 
Comet! Lib. Button) 
Select Case Button. Key 
Case "New" 

LoadNewDoc 
Case "New" 

mnuFileNew^Click 
Case "Open" 

mnuFileOpen_Click 
Case "Save" 

mnuFileSave_Click 
Case "Pri nt" 

mnuFilePrint_Click 
Case "Cut" 



mnuEditCut„Click 
Case "Copy" 

mnuEditCopy_Click 
Case "Paste" 

mnuEditPaste_Click 
Case "Bold" 

'To Do 

MsgBox "Bold Code goes here!" 
Case "Ital i c" 
'To Do 

MsgBox "Ital i c Code goes here!' 
Case "Underl i ne" 
'To Do 

MsgBox "Underline Code goes 
"here!" 
Case "Left" 
'To Do 

MsgBox "Left Code goes here!" 
Case "Center" 
'To Do 

MsgBox "Center Code goes here!' 
Case "Right" 
'To Do 

MsgBox "Right Code goes here!" 
End Sel ect 
End Sub 

Pri vate Sub mnuHel pContents_Cl ick( ) 

Dim nRet As Integer 

'if there is no helpfile for this 

'projectdisplayamessageto 

'the user 

'you can set the HelpFile foryour 
'appl ication in the 
'Project Properties di al og 
If Len( App. HelpFile) - Then 
MsgBox "Unabl e to di spl ay Hel p " _ 
& "Contents. " & _ 
"There is no Help " & _ 
"associated with this project.", . 
vblnformation, Me. Caption 

Else 

On Error Resume Next 

nRet = OSWinHelp(Me.hwnd, _ 

App. HelpFile. 3,0) 
If Err Then 

MsgBox Err. Description 
End If 
End If 
End Sub 

Private Sub mnuHel pSearch_Cl ick( ) 



Dim nRet As Integer 

'if there is no helpfile for this 

'project display a 

'message to the user 

'you can set the HelpFile for 
'your application in the 
'Project Properties dialog 
If Lent App. HelpFile) - Then 
MsgBox "Unabl e to di spl ay " & _ 
"Hel p Contents . " & _ 
"There i s no Hel p " & _ 
"associated with this " & _ 
"project.", vblnformation. 
Me. Caption 

Else 

On Error Resume Next 

nRet = OSWinHelp(Me.hwnd, _ 

App. HelpFile, 261, 0) 
If Err Then 

MsgBox Err. Description 
End If 
End If 
End Sub 

Pri vate Sub _ 

mnuwindowArrangeIcons_Cl ick( ) 
Me. Arrange vbArrangelcons 

End Sub 

Private Sub _ 

mnuWi ndowCascade_Cl i ck( ) 

Me. Arrange vbCascade 
End Sub 

Private Sub _ 

mnuwindowNewWindow_Cl i ck( ) 
'To Do 

MsgBox "New Window Code " & _ 
"goes here!" 
End Sub 

Pri vate Sub _ 

mnuWindowTileHorizontal_Click( ) 
Me. Arrange vbTi 1 eHori zontal 

End Sub 

Pri vate Sub _ 

mnuWindowTil eVertical_Cl ick( ) 
Me. Arrange vbTileVertical 

End Sub 

Pri vate Suh mnuVi ewRpf rpqh ClictcO 

CONTINUED ON PAGE 4< 
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control, because the RichTextBox con- 
trol has some useful built-in features. 

Start your stopwatch again, and right- 
click on the Toolbox window to display the 
Components dialog. Find "Microsoft Rich 
Textbox Control 5.0" and check it to add it 
to your project. Then click on the TextBox 
control on frmDocument, delete it, and 
add a RichTextBox control in its place. 
Press the F4 key to display the Properties 
window, change the Name property to 
txtText, and set the ScrollBars property to 



rtfBoth. Elapsed time: one minute. 

NOW WRITE SOME CODE 

Remember that the frmDocument you see 
in your project is an MDI child form that you 
can use to create additional child forms 
when your user clicks on the New menu 
item on the File menu. The Application 
Wizard has already added this functionality 
in the LoadNewDoc procedure. Almost all 
of your project's code resides in frmMain, 
where the menu and toolbar are located. 



Display this form by right-clicking on 
frmMain in the Project window and clicking 
on View Object. 

Now click on the File menu's Open 
menu item: 

Private Sub mnuFil eOperuCl ick( ) 
Dim sFile As String 
With dlgCommonDialog 
'To Do 

'set the flags and attributes of 
'the common dialog control 
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'To Do 

MsgBox "Refresh Code goes here!" 
End Sub 

Private Sub mnuEditCopy_Cl ick( ) 
'To Do 

MsgBox "Copy Code goes here!" 
End Sub 

Private Sub mnuEdi tCut_Cl i ck( ) 
'To Do 

MsgBox "Cut Code goes here!" 
End Sub 

Private Sub mnuEditPaste_Cl ick( ) 
'To Do 

MsgBox "Paste Code goes here!" 
End Sub 

Private Sub 

mnuEditPasteSpecial_Click( ) 
'To Do 

MsgBox "Paste Special Code " & _ 
"goes here!" 
End Sub 

Private Sub mnuEdi tUndo_C1 i ck( ) 
'To Do 

MsgBox "Undo Code goes here!" 
End Sub 

PrivateSubmnuFil e0pen_Cl i ck( ) 

Dim sFi 1 e As Stri ng 
With dlgCommonDialog 
'To Do 

'set the flags and attributes 
'of the common dialog control 
.Fllta!"* "ATI Files C*.*)|*.*" 
.ShowOpen 

If Len(.filename) - OThen 

Exi t Sub 
End If 

sFi 1 e - . f i 1 ename 
End With 
'To Do 

' process the opened f i 1 e 
End Sub 

Private Sub mnuFi 1 eCl ose_.Cl i ck( ) 
'To Do 

MsgBox "Close Code goes here!" 
End Sub 

Private Sub mnuFileSave_Cl ick( ) 
'To Do 

MsgBox "Save Code goes here!" 
End Sub 

Private Sub mnuFi leSaveAs_Cl ick( ) 
'To Do 

' Setup the common dialog control 



'prior to calling ShowSave 
dl gCommonDi al og . ShowSave 
End Sub 

Private Sub mnuFi 1 eSaveAl 1_C1 i ck( ) 
'To Do 

MsgBox "Save Al 1 Code goes here ! ' 
End Sub 

Private Sub _ 

mnuFileProperties_Cl ick( ) 
'To Do 

MsgBox "Properties Code " & _ 
"goes here! " 
End Sub 

Private Sub _ 

mnuFi 1 ePageSetup_Cl i ck( ) 
dl gCommonDi al og . ShowPri nter 

End Sub 

Private Sub _ 

mnuFilePrintPreview_Click( ) 
'To Do 

MsgBox "Print Preview Code " & _ 
"goes here!" 
End Sub 

Private SubmnuFilePrint_Click( ) 
'To Do 

MsgBox "Print Code goes here!" 
End Sub 

Pri vate Sub mnuFi 1 eSend_Cl ick( ) 
'To Do 

MsgBox "Send Code goes here!" 
End Sub 

Private Sub mnuFi 1 eMRU_Cl i ck( Index _ 
As Integer) 
'To Do 

MsgBox "MRU Code goes here!" 
End Sub 

Private Sub mnuFi 1 eExi t_Cl ick( ) 

'unload the form 

Unl oad Me 
End Sub 

Private Sub mnuFi 1 eNew^Cl ick( ) 

LoadNewDoc 
End Sub 

Sub LoadResStri ngs(f rm As Form) 
On Error Resume Next 



Dim ctl As Control 
Dim obj As Object 
Dim fnt As Object 
Dim sCtlType As String 
Dim nVal As Integer 



' set the f orm' s capti on 
frm. Caption -_ 

LoadResStri ng(CInt(f rm. Tag)) 



'set the font 

Set fnt - frm. Font 

fnt. Name- LoadResStri ng(20) 

fnt.Size-CInt(LoadResString(2D) 



'setthecontrols' captions using 
'the caption property for menu 
'items and the Tag property 
'for all other controls 
For Each ctl In frm. Controls 
Set ctl . Font - fnt 
sCtlType - TypeNametctl ) 
If sCtlType - "Label" Then 
ctl .Caption -_ 

LoadResString(CInt(ctl .Tag)) 
El self sCtlType - "Menu" Then 
ctl . Capti on = _ 
LoadResString_ 
(CInt(ctl .Caption)) 
El self sCtlType - "TabStri p" Then 
For Each obj In ctl .Tabs 
obj . Capti on - _ 
LoadResString_ 
(Clnt(obj.Tag)) 
obj .ToolTipText 
LoadResStri ng_ 
(CInt(obj. ToolTipText)) 

Next 

ElselfsCtlType- "Tool bar" Then 
For Each obj In ctl .Buttons 
obj .ToolTipText -_ 
LoadResString_ 
(CInttobj. ToolTipText)) 

Next 

El self sCtlType - "ListView" _ 
Then 

For Each obj In _ 
ctl .Col umnHeaders 
obj. Text -_ 

LoadResString_ 

(CInttobj. Tag)) 

Next 
Else 

nVal - 

nVal -VaKctl .Tag) 
If nVal > Then _ 
ctl .Caption 
LoadResString(nVal ) 
nVal - 

nVal -VaKctl .ToolTipText) 
If nVal > Then _ 
ctl .ToolTipText -_ 
LoadResString(nVal ) 
End If 
Next 
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Diagnosing the 
Deadly Developer's Diseases 



A graphical user interface (GUI) carries no inherent 
guarantee of usability. From processor time to program- 
ming time to configuration time, misguided GUI designs 
frequently end up wasting system and human resources 
rather than enhancing productivity. To the end user, the 
interface is the software. A less-than-usable front end 
can totally scuttle a brilliant back-end design. 

After several years of intensive research, I have 
identified some deadly developer diseases. These con- 
tagious maladies are found throughout the worldwide 
developer population. Although symptoms vary widely, 
these diseases all seem to be caused by the same thing: 
a lack of training and experience. The diseases manifest 
themselves ultimately by hindering the developer's 
ability to design a usable, logical, and attractive user 
interface, regardless of how hard he or she tries. The 
best cure is prevention, through self-administered First 
ADE (awareness, discipline, and education). 

Awareness is frequently innate or instinctive, but 
you can acquire it. Discipline is self-imposed, although 
feedback from others can help keep you on the right 
track. Education is an ongoing process and can come 
from classes, seminars, and reading. Here's how to 
recognize the symptoms of the deadly developer dis- 
eases. 

HYPERSTRATAMANIA 

This disorder's principal symptom is the excessive 
use of 3-D controls on the screen, to the extent that 
available space for data is considerably reduced. 
Sporting panels with three layers chiseled in, four 
layers raised out, and buttons with half-inch high 
elevations, some screens can be mistaken for Arizona's 
geological formations. Some applications even have 
menus, drop-down menus, and labels with text that 
rival the bas relief of the ancients. Using 3-D spar- 
ingly will cure hyperstratamania. 

HYPERLAYERMANIA 

Have you ever seen a screen with five or six layers of 
modal dialogs? Some programs use so many modal 
layers that you forget what you were doing when you 
started opening the dialogs. Because they're modal, you 
can't move any of the previous layers out of the way to 
see the parent window. That's hyperlayermania at its 
best (or worst). The cure is simple: limit the levels used 
on screen. 

CLAUSTROPHOBIC OBJECTOSIS 

This syndrome is characterized by too many objects on 



the screen, giving the user a crowded feeling. White 
space (or in the case of contemporary Windows applica- 
tions, gray space) is important. Ease of use varies in- 
versely with the number of widgets on the screen at any 
given time. Don't be afraid of using blank space: it can 
open up the claustrophobic interface dramatically. 

ACUTE ICONITIS 

The most prevalent of the diseases, acute iconitis is 
manifested by placing too many icons on the screen. 
From different toolbars for each child window to multi- 
colored graphics on each command button, this disease 
is frequently accompanied by a major misunderstand- 
ing of visual design. You can cure iconitis by limiting the 
number of icons displayed at any one time. 

HYPOTHERMAL PSEUDOUSABILITIS 

This disease has reached worldwide epidemic propor- 
tions in the developer community. Programs are being 
designed to look "cool" or "sexy," with total disregard 
for usability. While the UI might look great, it might not 
make tasks any easier. In the words of interface de- 
signer Don Norman, "The best interface is a transparent 
one." Rather than the praise, "Hey, what a great UI," the 
best compliment from a user is no comment at all. The 
ability to sit right down and get to work without any 
overt awareness of the interface is the sign of a healthy 
application. 

RANDOM HYPERMULTIBUTTON SYNDROME 

This disease is manifested by an excessive number of 
command buttons, grouped and positioned in various 
different alignments, and confused by the use of 3-D 
panels to simulate secondary command buttons. You 
can typically cure this by using tabbed dialogs and other 
types of containers. 

POLYSYLLABIC TECHNOJARGONITIS 

Programmers speak a language different from the aver- 
age user. When faxing, they rasterize rather than pre- 
pare the cover page. Remember who your users are. 
Regardless of the conversational language they use, 
keep in mind that they are not usually propeller-heads. 
Use words that they will understand. 

Hopefully you will avoid these maladies when de- 
signing a user interface. If you start to detect some 
symptoms of these illnesses, remember your First ADE. 
And be careful out there — new strains of these illnesses 

crop up every day. — Ken Schiff 



Ken Schiff is president of Productivity Through Technology Inc., a consultancy for creating obvious, discoverable, andusable 
GUI applications and Web sites. Ken 's clients include Fortune 1 00 corporations, large commercial software developers, small 
ISVs, VARs, and system integrators. Reach him on the Internet at ken@guiguy. com, or visit the GUIguy at www.guiguy. com. 
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Figure 4. Starting from Scratch. The Application Wizard 
creates a full-featured application in VB5 — but you '11 need to 
complete the To Do list! 

.Filter- "All Files (*.*)]*.*" 
.ShowOpen 

If Lent .filename) - Then 

Exit Sub 
End If 

sFi 1 e - .f1l ename 
End With 
'To Do 

'process the opened file 
End Sub 

Replace the last two lines in the procedure with this code. The 
code calls the LoadFile method of the RichTextBox control of the 
active document form: 

Active Form. txtText. Load File (sFile) 
ActiveForm. caption - sFile 

The form's Caption property is a convenient place to store 
the path and file name being edited. You can use this property 
when you need to save the file. 

The File menu has three different "Save" menu items: "Save" 
to write the document back with the name on the caption, "Save 
As" to give the file a new name, and "Save AH" to save all open 
documents. If the caption starts with "Document," you can 
assume that the user has not assigned a file name yet. Add this 
code to the mnuFileSave_Click event: 

Dim sFi 1 e As Stri ng 

If LeftfActiveForm. Caption, 8) - "Document" Then 

mnuFi 1 eSaveAs_Cl i ck 
Else 

sFi 1 e - ActiveForm. Caption 
Acti ve Form. txtText . SaveFi 1 e ( sFi 1 e ) 
End If 

Put this code in the mnuFileSaveAs_Click event. Notice that 
this code uses the ShowOpen method of the Common Dialog 
control to let the user choose the file name. Simply set the 
Caption property and call the mnuFileSave_Click event to actu- 
ally save the file: 



With dlgCommonDialog 

.Filter - "All Files (*.*)|*.* H 
.ShowOpen 

If Len( .fil ename) - Then 

Exit Sub 
End If 

sFile- .filename 
End With 

ActiveForm. Caption - sFile 
mnuFileSave_Cl ick 

My stopwatch shows that it took another 90 seconds to type 
those 18 lines of code. Elapsed time: 1:30. 

You now have a working text editor that can load and 
save multiple document files. I'll give you a hint on the Save 
All menu item — it uses the Forms collection to loop through 
all frmDocument forms. For details, see the enhanced Text 
Editor available on the free, Registered Level of The Devel- 
opment Exchange (for details, see the Code Online box at 
the end of this article.) 

TOOLBAR FORMAT CONTROL 

Now you can activate the format buttons on the toolbar to 
format the text in the active document. The RichTextBox con- 
trol has several properties that begin with "Sel..." that control 
the format of the selected text. For example, SelBold returns 
True if the selected text's font is bold. You can add code in each 
Case statement in the tbToolBar_ButtonClick event to toggle 
the appropriate format property: 

Case "Bold" 

Acti ve Form. txtText . Sel Bold - Not _ 

Acti veForm. txtText . Sel Bol d 
Case "Italic" 

ActiveForm. txtText. Sel Ital ic - Not_ 

ActiveForm.txtText.Sel Italic 
Case "Underl ine" 

Acti veForm. txtText. Sel Underl ine - Not_ 
Acti veForm. txtText . Sel Underl i ne 




Figure 5. Here's Your Basic 3 /2-Minute Text Editor. In a jiffy, 
you can create a useful tool and wow your non-Visual Basic 
programmer friends. 
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VERSION 5.00 

Attri bute VB_Name - "f rmMai n" 

Attri bute VB_G1 obal NameSpace - Fal se 

Attri bute VB_Creatabl e - Fal se 

Attribute VB_Predecl aredld - True 

Attri bute VB_Exposed - Fal se 

Opti on Expl ici t 

Pri vate Decl are Functi on _ 

OSWinHelpX Lib "user32" Al i as _ 
"WinHelpA" (ByVal hwnd&, ByVal _ 
HelpFile$, ByVal wCommand%, _ 
dwData As Any) 

Private Sub MDIForm_Load( ) 

Me. Left-GetSetting(App. Title, _ 

"Settings", "MainLeft", 1000) 
Me. Top -GetSettingt App. Title, _ 

"Settings", "MainTop", 1000) 
Me.Width-GetSetting 

(App. Title, "Settings", _ 

"MainWidth", 6500) 
Me. Height - GetSetting _ 

(App. Title, "Settings", _ 

"MainHeight", 6500) 
LoadNewDoc 
End Sub 

Private Sub LoadNewDoc( ) 

Stati c 1 DocumentCount As Long 

Dim f rmD As f rmDocument 

1 DocumentCount - 1 DocumentCount + 1 

Set f rmD - New f rmDocument 

f rmD. Caption - "Document " & _ 

1 DocumentCount 
f rmD. Show 

End Sub 

Private Sub MDIForm_Unload( Cancel _ 
As Integer) 

If Me.WindowState <> vbMinimized_ 
Then 

SaveSetting App. Title, _ 

"Settings", "MainLeft", „ 

Me. Left 
SaveSetting App. Title, _ 

"Settings", "MainTop", _ 

Me. Top 

SaveSetting App. Title, _ 
"Settings", "MainWidth", _ 
Me. Width 
SaveSetting App. Title, _ 
"Settings", "MainHeight", _ 
Me. Height 
End If 
End Sub 

PrivateSub mnuHel pAbout_Cl ick( ) 
'To Do 

MsgBox "About Box Code goes here!" 
End Sub 

Private Sub _ 

tbToolBar_ButtonClick(ByVal _ 
Button As Comctl Lib. Button) 
Select Case Button. Key 
Case "New" 

LoadNewDoc 
Case "New" 

mnuFileNew_Click 
Case "Open" 

mnuFile0pen_Click 
Case "Save" 

mnuFileSave_Click 
Case "Pri nt" 

mnuFi lePrint_Click 



Case "Cut" 

mnuEdi tCut_Click 
Case "Copy" 

mnuEditCopy_Click 
Case "Paste" 

mnuEditPaste_Click 
Case "Bold" 

'added CRB 

Acti veForm.txtText.Sel Bol d - _ 
Not Acti veForm. _ 
txtText.SelBold 
Case "Ital i c" 
'added CRB 

Acti veForm.txtText.Sel Ital ic- 
Not ActiveForm. _ 
txtText.Sel Ital ic 
Case "Underline" 
'added CRB 

ActiveForm. txtText. _ 
SelUnderline- Not_ 
ActiveForm. txtText. _ 
SelUnderline 
Case "Left" 

'added CRB 

ActiveForm. txtText. _ 
Sel Al i gnment - rtf Lef t 
Case "Center" 
'added CRB 
ActiveForm. txtText. _ 

Sel Al i gnment - rtf Center 
Case "Ri ght" 
'added CRB 
ActiveForm. txtText. _ 
SelAlignment -rtfRight 
End Select 
End Sub 

Private Sub mnuHel pContents_Cl ick( ) 
Dim nRet As Integer 
'if there is no help file for this 
'project di spl ay a ' 

message to the user 
'you can set the HelpFile for your 
' appl i cati on i n the 
'Project Properties dialog 
If Len(App. HelpFile) = Then 
MsgBox "Unable to display " & _ 
"He! p Contents . " & _ 
"There i s no Hel p " & _ 
"associated with this project.", 
vblnformation. Me. Caption 

Else 

On Error Resume Next 
nRet-0SWinHelp(Me.hwnd, _ 

App. HelpFile, 3, 0) 
If Err Then 

MsgBox Err . Descri pti on 
End If 
End If 
End Sub 

Private Sub mnuHel pSearch_Click( ) 

Dim nRet As Integer 

'if there is no help file for this 

' project displ ay a 

'message to the user 

'you can set the HelpFile for your 

' appl icati on i n the 

'Project Properties dialog 

If Len( App. HelpFile) - Then 
MsgBox "Unable to displ ay " & _ 
"Hel p Contents . " & _ 
"There i s no Hel p " & _ 
"associated with this " & _ 
"project. " , vblnformation , _ 
Me. Caption 



Else 

On Error Resume Next 

nRet = 0SWinHelp(Me.hwnd, _ 

App. HelpFile, 261, 0) 
If Err Then 

MsgBox Err. Description 
End If 
End If 
End Sub 

Private Sub .. 

mnuWindowArrangeIcons„Cl i ck( ) 

Me. Arrange vbArrangelcons 
End Sub 

Private Sub _ 

mnuWindowCascade_Cl ick( ) 

Me. Arrange vbCascade 
End Sub 

Private Sub _ 

mnuWindowNewWindow_Cl ick( ) 
'To Do 

MsgBox "New Window Code " & _ 
"goes here!" 
End Sub 

Pri vate Sub _ 

mnuWindowTileHorizontal_Cl ick( ) 
Me. Arrange vbTi 1 eHori zontal 

End Sub 

Pri vate Sub _ 

mnuWindowTi leVertical_Cl ick( ) 

Me. Arrange vbTileVertical 
End Sub 

Private Sub mnuEdi tCopy_Cl ick( ) 

'added CRB 

Clipboard.SetText 

Acti veForm . txtText . Sel Text 

End Sub 

Private Sub mnuEditCut_Click( ) 

'added CRB 

mnuEditCopy_Click 

Acti veForm. txtText. Sel Text - "" 

End Sub 

Pri vate Sub mnuEdi tPaste_Cl ick( ) 
'added CRB 

ActiveForm. txtText. SelText 

Clipboard.GetText 
End Sub 

Private Sub _ 

mnuEdi tPasteSpeci a 1_C1 ick( ) 
'To Do 

MsgBox "Paste Special Code " &_ 
"goes here!" 
End Sub 

Private Sub mnuEditUndo_Cl ick( ) 
'To Do 

MsgBox "Undo Code goes here!" 
End Sub 

Private Sub mnuFi 1 e0pen_Cl ick( ) 
Dim sFile As String 
With dlgCommonDialog 
'To Do 

'set the flags and attri butes 
'of the common dialog control 
. Fi 1 ter - _ 

"All Files (*.*) |*.*" 

Continued on page 44. 



Listing 2. Code for the 3 ] /2-Minute Text Editor. The Application Wizard created this source for a complete MDI project with most 
options selected. 
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CONTINUED FROM PAGt 43. 

.ShowOpen 

If Len( . f il ename) - Then 

Exit Sub 
End If 

sFile- .filename 
End With 
'added CRB 

Acti veForm. txtText . LoadFi 1 e ( sFi 1 e ) 
Acti veForm.Capti on - sFi 1 e 
End Sub 

Private Sub mnuFileClose_Cl ick( ) 
'To Do 

MsgBox "Close Code goes here!" 
End Sub 

Private Sub mnuFi leSave_Cl ick( ) 

'added CRB 
Dim sFile As String 

If Left(ActiveForm. Caption. 8) - "Document" Then 

mnuFileSaveAs_Click 
Else 

s File -Acti veForm.Capti on 

Acti veForm. txtText . SaveFi 1 e ( sFi 1 e) 

End If 

End Sub 



Private Sub mnuFi 1 eSaveAs_Cl ick( ) 

•added CRB 

Dim sFi 1 e As Stri ng 

With dlgCommonDialog 

. F1 1 ter - "A1 1 Files (*.*)|*.* n 

.ShowOpen 

If Len( .filename) - Then 

Exit Sub 
End If 

sFile - .filename 
End With 

Acti veForm.Capti on - sFi le 
mnuFil eSave^Click 
End Sub 




Private Sub mnuFileProperties_Click( ) 
'To Do 

MsgBox "Properties Code goes here!" 
End Sub 

Private Sub mnuFi lePageSetup_Cl ick( ) 

dl gCommonDi al og . ShowPri nter 
End Sub 

Private Sub mnuFilePri ntPreview_Cl ick( ) 
'To Do 

MsgBox "Print Preview Code goes here!" 
End Sub 

Private SubmnuFilePrintJlickO 
'added CRB 

With dlgCommonDialog 

. Fl ags - cdl PDReturnDC + cdl PDNoPageNums 

.ShowPrinter 
End With 

ActiveForm.txtText.Sel Print Printer.hDC 
End Sub 

Private Sub mnuFileSend_Click() 
'To Do 

MsgBox "Send Code goes here!" 

End Sub 

Private Sub mnuFil eMRU_Cl i ck( Index As Integer) 

'To Do 

MsgBox "MRU Code goes here!" 
End Sub 

Private Sub mnuFi leExi t_Cl ick( ) 

' unl oad the form 

Unl oad Me 
End Sub 

Pri vate Sub mnuFil eNew_Cl i ck( ) 

LoadNewDoc 
End Sub 




User Tip 



VB3, VB4 16/32, VB5 
Level: Beginning 

PROPERTY ACCESS IS SLOWER THAN VARIABLE ACCESS 



Accessing a property is slower than accessing a 
variable. If you need to access a component's 
property more than once, assign it to a variable and 
increase the performance of your program. Use this 
code to access the variable quickly: 

Sub FindMatchtText As String) 
n-Listl.ListCount 
For i-0 To n-1 

b- Listl.Listfi ) 

if UCase$(b)-UCase$(Text) Then 

End If 
Next i 
End Sub 

Using this code to access the property is slower 
than the method above: 



Sub FindMatchtText As String) 

For i-0 to List 1 . ListCount-1 

if UCase$(Listl.List(i ))-UCase$(Text) Then 

End If 
Next i 
End Sub 

— Carlos D. Castillo, Los Teques, Venezuela 

SEND YOUR TIP 

If it's cool and we publish it, we 'II pay you $25. If it includes code, 
please limit code length to 20 lines if possible. Be sure to include 
a clear explanation of what the technique does and why it is 
useful. Send it to vbpjedit@fawcette.com or Fawcette Technical 
Publications, 209 Hamilton Ave., Palo Alto, CA 94301-2500. You 
can also fax it to 650-853-0230. Please include your mailing 
address. 
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Your First Application 



Copy this line of code under the Italics 
Case statements, and change them to set 
the Selltalic and SelUnderline properties. 
The Left, Center, and Right alignment but- 
tons are just as easy. Simply set the 
SelAlignment property to rtfLeft. All you 
have to do then is quickly copy and paste 
for Center and Right — remember, the stop- 
watch is running: 

Case "Left" 

Acti veForm.txtText.Sel Al i gnment -_ 

rtfLeft 
Case "Center" 

Acti veFortn. txtText .Sel Al i gnment -_ 

rtfCenter 
Case "Right" 

Acti veForm. txtText .Sel Al i gnment -_ 
rtf Right 

You can use the SelText property of 
the RichTextBox control to get or set the 
text the user selects. You can use this 
property to activate the Cut, Copy, and 
Paste toolbar buttons using the GetText 
and SetText methods of Visual Basic's 
Clipboard object. The copy function sim- 
ply places the selected text in the clip- 
board. The cut function first calls the 
copy function to place the text in the 



clipboard, and then sets the selected text 
to an empty string. 

Finally, the paste function uses the 
Clipboard object's GetText method to 
insert the text in the RichTextBox con- 
trol at the insertion point, replacing any 
selected text: 

Private Sub mnuEdi tCopy^Cl ick( ) 
Clipboard. SetText_ 

Acti veForm . txtText .Sel Text 
End Sub 

Private Sub mnuEditCut_Click( ) 
mnuEditCopy_Cl ick 
Acti veForm. txtText .SelText - "" 
End Sub 

Pri vate Sub mnuEdi tPaste_Cl ick() 
Acti veForm. txtText. Sel Text -_ 

CI ipboard. GetText 
End Sub 

My stopwatch shows an elapsed time 
of 3:20 to get to this point — not bad for a 
full-featured text editor (see Figure 5). 
Show that to COBOL and C programmers! 

There are still a few To Do items in the 
code, such as the Send menu item and 
the most recently used menu items on 



the File menu. See Listing 2 for the com- 
plete source code for the text editor. 
Take a look at the Registered Level of 
The Development Exchange for a more 
complete implementation of this text edi- 
tor, which includes the Save All menu 
item, the Find menu item, and the Most 
Recently Used list, xj 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic 
on The Development Exchange (DevX) at 
http://www.windx.com. For details, 
please see "Get Extra Code in DevX's 
Premier Club," in the Table of Contents. 

Approach VB5 with The Wizard 
Locator* Codes 

Listings for the entire issue, plus 
WIZGS198.zip, which includes a more 
complete implementation of the text edi- 
tor (free Registered Level): GS1 98 
Listings for this article only, plus the file 
described above (subscriber Premier 
Level): WIZGS1 98 




DBBasics offers a suite of 3 Visual Basic classes that give you 
the skills necessary to build stand-alone, Internet and 
Client/Server VB applications — fast! You'll learn: 



• VBA 

• Database Access 

• GUI Development 

• COM and DCOM 

• RDS 



• Debugging Techniques 

• Object Oriented Programming 

• ActiveX Controls 

• Active X Documents 

• MTS 



We also offer over 40 courses on everything from Access to 
Visual C++, at your site or ours. Check out our web site for 
complete course details and dates. 

DBBasics is more than a training company - with over 700 
application projects behind us, our trainers speak from experience. 
We offer complete project solutions, staffing solutions and 
mentoring. Contact us today at: 

DBitfefctKJi 

www.dbbasics.com 800 646 6490 




http://www.windx.com 



Getting Started with Visual Basic SPRING 1998 45 



Videotape Database Application 

Build a Database for Your 

Videotape Collection 



With VB5 and 
Access 97, you can 
easily develop an 
app to track your 
audio and videotape 



Field Name 


Data Type 


Field Size 


TapelD 


AutoNumber 




Type 


Text 


10 


Minutes 


Number 


Long Integer 



Table 1 . Add Fields to the Tapes Table. 

Notice the use of the AutoNumber field for 
TapelD to automatically assign a unique 
key for each tape. Rather than write a lot of 
code to create a unique key, you can let 
Access 97 do it for you. 



new tapes to your tape collection. You 
want to be able to add programs to 
existing tapes in your collection. You 
want to be able find which tape has a 
certain program . . . and I'm sure you 
can think of more functions. Each of 
these functions will be a procedure 
within your application. 

Launch Access 97 and start a new 
blank database. At another time, you'll 
want to take a look at the Database Wiz- 
ards in Access — they create a simple 
database for many types of applications, 
including forms and reports. You can 
learn a lot by studying the databases 
created by these wizards. Name your 
new database "TapeCollection" and make 
sure you note the folder where you cre- 
ate it — probably "My Documents." Then 
click on the New button on the Tables 
tab to add the Tapes table. Add three 
fields to the Tapes table (see Table 1). 
Then create the new Programs table and 
add a number of fields (see Table 2). 

When you save both tables, your da- 
tabase should look like mine (see Figure 
1). Notice that the Programs table con- 
tains a field called TapelD. This field 
"points" to the tape where this program 

Chris Barlow is president of SunOpTech, a 
developer of document management, deci- 
sion-support, and supply chain applications, 
including the ObjectBank, ObjectOrder, and 
Objectlob systems. He holds two U. S. Pat- 
ents related to software for decentralized 
distributed asynchronous object-oriented and 
scheduling systems. Chris, who is a frequent 
speaker at VBITS, Tech'Ed, and DevDays 
and has been featured in two Microsoft 
videos, holds degrees from Harvard Busi- 
ness School and Dartmouth College. Reach 
Chris atChris@VBExpert.com or through his 
Web server at www. VBExpert.com. 
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collection. 



Visual Basic 5 makes it easy for a 
beginning Visual Basic program- 
mer to write an attractive data- 
base application similar in style 
to the Windows Explorer program. When 
you combine Visual Basic 5 with Access 
97, you have a powerful environment to 
easily develop database applications. To 
get started, let's build an application to 
track your collection of audio tapes and 
videotapes. You'll be able to take this 
source code and modify it to handle typi- 
cal database applications. 

The first step in any database project 
is to analyze your data and design the 
structure of your database. This isn't as 
complex as it sounds. Begin by thinking 
about how you currently maintain the 
data available for your application. 

If you're like most people, you prob- 
ably have lots of audio tapes and video- 
tapes on your bookshelf. Some are blank, 
while others have many programs taped 
on them. The tapes probably vary in 
length, with audio tapes of 30, 60, or 90 
minutes, and videotapes of one, two, or 
six hours. Because you plan to build an 
application to keep track of your tape 



Field Name 


Data Type 


Field Size 


ProgramID 


AutoNumber 




Name 


Text 


50 


TapelD 


Number 


Long Integer 


RecordingDate 


Date/Time 




Minutes 


Number 


Long Integer 


CounterPosilion 


Number 


Long Integer 


Subject 


Text 


50 


Review 


Memo 




Notes 


Memo 





collection, it makes sense that one of the I example, you want to be able to add 



Table 2. Add Fields to the Programs 
Table. Whenyou refer to the TapelD in this 
table, you need to use a long integer rather 
than an AutoNumber field because you 
don 't want to generate a new number. 

tables in your database will be the Tapes 
table. You also want to keep track of the 
programs you've recorded. You've prob- 
ably written some information about each 
program directly on the tape's label, in- 
cluding the subject of the program, date, 
and length. Because each tape can hold 
more than one program, you also need a 
Programs table. 

Next, write down what you want your 
application to do with this data. For 
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nas Deen recoraea. Access » i recug uizes 
this relationship and displays it in the 
Relationships dialog that you can show 
from the Tools menu (see Figure 2). The 
relationship is shown as a "one-to-many" 
relationship because you can have many 



programs on a single tape. 

When you develop a new database, 
it's important to understand these rela- 
tionships between your data tables. 
Sometimes you even need to create addi- 
tional tables so the data can operate in 



'^..Microsoft Access 



File Edit View Insert Tools Window Help 











to - 


m 




Figure 1 . Follow This Model. It's easy to manually create a new database in Access. But 
take a look at the Table Wizards to learn more about creating complex tables. 




Figure 2. Acknowledge Table Relationships. You can display the relationship 
between the tape and the program in the Relationships dialog of the Tools menu. The 
relationship is shown as a "one-to-many" relationship because you can have many 
programs on a single tape. When you have a database with many related tables, you H find 
this graphical view rather useful. 



suppose you want to keep track of the 
performers for each program in the Pro- 
grams table. You would start by creating 
a Performers table with each performer's 
name and vital statistics. One performer 
can be in many programs, so you might 
think you would create a one-to-many 
relationship from the Performers to the 
Programs table. But one program can 
have many performers. That requires a 
one-to-many relationship from the Pro- 
grams to the Performers table. You can't 
have a "many-to-many" link, so you need 
to create an extra table to join Perform- 
ers to Programs. For now, keep your 
database simple and use the two tables 
you already created. You can use the 
Database Wizard in Access 97 to create 
some other databases and see some 
examples of this more complex data- 
base structure. 

Open your Tapes table and enter two 
tapes with different Type fields — one "au- 
dio" and one "video." Notice that the 
AutoNumber field creates a unique 
TapelD for each tape. Then open your 
Programs table and enter five programs — 
two on one tape and three on the other, 
using the TapelDs in the Tapes table. 
This sample data will help you test your 
Visual Basic program as you create it. 

WRITE YOUR DATABASE APP 

Now you're ready to begin writing your 
application. Launch Visual Basic 5 and 
select the new VB Application Wizard — 
this wizard is going to do a lot of the work 
for you. Choose the Explorer style on the 
first tab. Choose the default options on 
the second, third, fourth, and fifth tabs. 
On the Data Access Forms tab, select 
"Yes" to let the wizard create the data- 
entry forms for the Tapes and Programs 
tables from your TapeCollection data- 
base. Finally, name your project 
TapeCollection and let the wizard go to 
work and do its job. 

The wizard creates a new Visual Basic 
project with four forms and a module. 
Press F5 to run the project; notice that 
your TapeCollection Explorer applica- 
tion has a full set of menus and toolbars. 
Select the Data Forms menu item from 
the View menu, and see the two data 
forms created by the wizard. Choose the 
Programs menu item and see a data en- 
try form with your sample programs. 
The form already has buttons enabled to 
add, update, and delete programs from 
your database. Notice that these forms 
aren't modal, so you can display both 
the Tapes and the Programs forms from 
your Explorer (see Figure 3). Don't you 
just love the Application Wizard? 

Although your Explorer window has a 
nice splitter bar separating the TreeView 
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uei even more 

From MIND! 




It's for WEB DEVELOPERS 



Lots of magazines are covering the Web. So why do 
you need Microsoft Interactive Developer? Because it's 
the only magazine that addresses your need for highly 
technical, authoritative articles with code-intensive 
content. MIND gives developers the inside track on 
Microsoft's emerging technologies for the Internet, 
the corporate intranet, and multimedia. 



solution for successful Web application development. 

Each Site Builder Network CD-ROM is chock-full of 
valuable applications, tools and samples that you can 
actually load onto your machine, run, and use to 
develop your Internet and intranet applications. 

These CD-ROMs are now only available with MIND — 
the exclusive U.S. distributor of the Site Builder 

Network CD! 



Check it out and you'll see the caliber of technical 
content you can expect in every issue. You won't find 
this level of expertise anywhere else! 

NOW It's INTEGRATED 

Along with monthly issues of Microsoft Interactive 
Developer, you get four quarterly Microsoft Site Builder 
Network Web Snapshot CD-ROMs. Together, MIND 
and Site Builder provide a fully integrated 



Order today and you'll get 12 issues AND 4 quarterly 
CDs for only $27.95. You'll enjoy delivery straight to 
your mailbox, have access to every issue's code up on 
the Web, AND you'll save over 60% off the annual 
newsstand cover price! 

Only $27.95 for 12 monthly 
issues and 4 Quarterly Site 



ORDER TODAY! To start your subscription, simply fill out the subscription 
card provided. OR CALL 1.800.848.5523 

Or subscribe on-line at http://www.windx.com 



Basic annual subscription rale is S32.97. Savings based on annual newsstand cover price of $71.40. Subscription begins upon receipt of payment. Please allow 4 weeks for delivery of first issue. International 
subscriptions must be payable in U.S. dollars plus postage: Canada/Mexico add SI 8/year for air mail delivery; all other countries add S44/year for air mail delivery. Microsoft and Visual Basic are registered 
trademarks of Microsoft Corporation. Java is a trademark of Sun Microsystems. Microsoft Interactive Developer and The Development Exchange are trademarks of Fawcette Technical Publications. 



Videotape Database Application 



Si, Programs 



Re Edit View Help 

alfe] X| J ProgramlD: 
" | LtstVie Name: 
apelD- 



El 




^Rosemary Track Meet 





Delete [ Refresh Li p. late Grid 

j — | 

Record: 4 ► j ►! 1 







15 






Type 


[Smm 






Minutes: 








Add 


Delete | Refresh | 


Update | 


Grid | 





Record: 5 




Figure 3. Display Data Forms. The Application Wizard creates working data access 
forms for each table in your database that let you add, update, and delete records. 
Because the forms aren 't modal, you can display both the Tapes and the Programs forms 
from your Explorer. 



and ListView controls, it doesn't display 
any data. You need to write some code to 
display your database records in the 
Explorer view. 

Take a look at frmMain in designer 
mode. Create the Explorer view by plac- 
ing a TreeView control on the left of the 
form and a ListView control on the right, 
separated by a narrow Image control to 
act as the splitter bar. The code is al- 
ready present to handle the resizing of 
these controls as you move the splitter 
bar. You simply need to populate the 
TreeView and ListView controls with data 
from the database. 

Add a line of code in frmMain's 
Form_Activate event to call a procedure 
FillTreeView. Then open Modulel and 
create the FillTreeView procedure. This 
procedure opens the TapeCollection da- 
tabase, adds nodes to the TreeView con- 
trol, and sets up the column headings in 
the ListView control. 

Database access is a stumbling block 
for many beginning programmers, but 
Microsoft has made it easy with Visual 
Basic. Take a look at the code behind the 
frmTapes form that the Application Wiz- 
ard created. Because the form uses a Data 
control and a TextBox control, Visual Ba- 
sic can automatically bind it to a certain 
field in the database by setting the 
control's DataSource and DataField prop- 
erties. Use the F8 key to single step through 
the code in this form while you add a new 
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tape to your database. Notice how the 
Data control greatly simplifies the devel- 
opment of simple data access forms. 

However, there are some limitations 
to the use of the Data control, even in a 
simple database. Not all controls have 
the DataSource and DataField properties 
required to support binding to a data- 
base. Neither the TreeView nor the 
ListView controls have this support. But 
don't fret! You can use the Data Access 
Objects (DAO) almost as easily. 

Begin by dimensioning the DAO vari- 
ables to perform SQL queries on the 
database: 

Sub FillTreeViewO 

'add code to fill the treeview control 
Dim SQL$. db As Database, rs As _ 
Recordset 

As you can see from the design view 
of the form, the TreeView control dis- 
plays its nodes in a hierarchical struc- 
ture based on the relation you specify 
when you add a new Node object to the 
Nodes collection. Start by adding the 
first root Node (with a key of "r") to the 
TreeView control to display the word 
"Tapes," using the Add method of the 
Nodes collection: 

Dim MyNodes As Nodes 
' f i rst add root note 
Set MyNodes - _ 



f Mai nForm.tvTreeView. Nodes 
MyNodes. Clear 

MyNodes. Add . , "r". "Tapes" 

The next step is to add nodes to sepa- 
rate the display of tapes by their Type 
field. You can create a simple SQL state- 
ment that creates a Recordset object 
that contains one record for each differ- 
ent tape type. The OpenDatabase method 
opens the database that has been set in 
the StartUp procedure to the location of 
your database, and the OpenRecordset 
method of the Database object executes 
the SQL statement: 

SQL - J 

"select di stinct Type from Tapes" 
Set db - OpenDatabase (gsData base) 
Set rs -db.OpenRecordset(SQL) 

Loop through the Recordset and add 
nodes to the Nodes collection of the 
TreeView control. Use the tvwChild con- 
stant and point to the root node by its "r" 
key. When you reach the end of the 
recordset, close the database: 

Do Until rs.EOF 

MyNodes. Add "r", tvwChild, rs(0) , _ 
rs(0) 

rs.MoveNext 
Loop 

rs. Close 

Set rs - Nothing 
db. Close 

Set db - Nothing 

Format the columns of the ListView 
control by adding to the ColumnHeaders 
collection. Size each of the five columns to 
take one-fifth of the width of the control: 

'then add col umns to 1 i stvi ew 
With fMainForm.lvListView. _ 

ColumnHeaders 

.Clear 

.Add . , "Program", fMainForm. _ 

IvListView. Width / 5 
.Add , , "Date", fMainForm. _ 

IvListView. Width / 5. _ 

1 vwCol umnCenter 
.Add , , "Subject", fMainForm. _ 

IvListView. Width / 5 
.Add , . "Minutes", fMainForm. _ 

IvListView. Width / 5 
.Add . . "Counter", fMainForm. _ 

IvListView. Width / 5 
End With 
End Sub 

Press F5 to run your application, and 
you'll see the root "Tapes" node. Click on 
this node to expand it, and you'll see the 
tape types in your database. You'll want 
to add additional nodes under the clicked 
node for each of the tapes in the Tapes 
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table, so that when the user clicks on one 
of these nodes, a list of additional nodes 
will appear. Then, you want to write code 
so that when the user clicks on one of 
these additional nodes, the ListView con- 
trol will fill with the records from the 
Programs table. Display frmMain and 
double-click on the TreeView control to 
display the Node Click event. This same 
event will be triggered whether the user 
clicks on a node displaying the tape type 
or one of the tapes, so you need to be 
able to distinguish between these nodes. 
The easiest way is to preface the TapelD 
with a "T" when adding the Key for the 
node. Then you can detect this within 
the node Click event and call either the 
FillPrograms or FillByType procedure: 

Private Sub tvTreeVi ew_NodeCl ick 
(ByVal Node As Comctl Lib. Node) 

'now get the records for this node 

If Left(Node.Key, 1) - "T" Then 
Fil 1 Programs Node 

El se 

FillByType Node 

End If 

End Sub 

Because you pass the Node object as 
an argument to each of these functions, 
you can use its properties to search the 
database. The FillByType procedure gets 
called first when the user clicks on one of 
the tape type nodes. Open the database 
in the FillTreeView procedure, and con- 
struct a SQL statement that searches the 
Tapes table for all records where the 
Type field is equal to the Key of the node 
object argument: 

Sub FillByTypefthisNodeAs Node) 

'add code to f i 1 1 the treeview control 

Dim MyNodes As Nodes 

Dim SQL$, db As Database, rs _ 

As Recordset 
Set MyNodes - _ 

f Ma i n Fo rm . t vTreeV i ew . Nodes 
'then get the Tape types from the 
'database 

SQL - "select * from Tapes where Type _ 

- '" & thisNode.Key & 

Caution! This is where many program- 
mers get tripped up. Because the Type 
field has a string data type, you need to 
surround the value with a single quote. 
Many people get confused and end up 
writing the code like this, and then won- 
der why the query wasn't successful: 

SOL - "select * from Tapes where Type _ 

- ' thisNode.Key ' " 

This line of code doesn't concatenate 
the value of the node's key, but adds the 
words "thisNode.key" to the SQL state- 



Y 



ou can learn a lot from single 
stepping through your code to see 
if it does what you expect. 



ment. Obviously, this won't work, so 
make sure you don't make this mistake. 

Now you can loop through the 
recordset and add nodes as children of 
the passed node with a key as the letter 
"T" and the TapelD: 

Set db - OpenDatabase(gsDatabase) 
Set rs - db. Open Recordset (SQL) 
Do Until rs.EOF 

MyNodes. Add thisNode.Key, _ 

tvwChild, "T" & rs(0). "Tape "_ 
& rs(0) 
rs.MoveNext 
Loop 

rs. Close 

Set rs - Nothing 
db. Close 

Set db - Nothing 
End Sub 

Run your application and click on one 
of the nodes. You'll see nodes for the 
tapes of that type added to the control. 
Press the Ctrl-Break key to stop the pro- 
gram; then press F8 to single step and 
watch your code work. You can learn a 
lot from single stepping through your 
code to see if it does what you expect. 

SHOW THE PROGRAMS 

Now you're ready to add the code to load 
the programs for the selected tape to the 
ListView control when the user clicks on 



a node. Just as the TreeView control 
displays its data with a Nodes collection, 
the ListView control uses a Listltems 
collection to display its data. The Text 
property of each Listltem object is dis- 
played in the first column of the ListView 
control when it is in Report mode. Each 
Listltem object also has an array of 
Subltem objects to contain the data for 
the additional columns. 

First, clear the ListView control using 
its Clear method. When the FillPrograms 
procedure is called, the Node object that 
is passed as the argument will have its 
Key property set to T" and the TapelD. 
You can parse out only the TapelD using 
Visual Basic's Mid function to return the 
value from the second position of the 
Key— Mid(thisNode.Key,2). With this 
value, you can construct a SQL state- 
ment to search the Programs table for all 
programs that contain the selected 
TapelD. Because TapelD is a numeric 
field, you don't surround it with single 
quotes as you did with the tape type: 

Sub Fill ProgramstthisNode As Node) 
'add code to fill the treeview 
'control 

DimMyList As Listltems 
Dim Item As Listltem 
Dim SQL$, db As Database, rs As _ 
Recordset 

Set My Li st - fMai nForm. 1 vLi stVi ew. _ 
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Figure 4. View the Completed Database Explorer. Explorer-style applications are 
easy to create, even for a programmer just getting started with Visual Basic. You can 
develop this working Database Explorer app with little code. 
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Li st items 
MyList. Clear 

'then get the Tape types from the 
'database 

SQL - "select * from Programs where _ 
TapelD- " & Mid(thisNode.Key, 2) 

Then open the database and recordset 
as you have in the other procedures. 
This is getting easy, huh? Loop through 
the recordset, and use the Add method 
of the Listltems collection to add the 
Program name as the Key of the Listltem 
object. Then, with that Listltem object, 
set the Subltems array to display date, 
subject, minutes, and counter fields from 



tne Programs table: 

Set db - OpenDatabase(gsOatabase) 

Set rs -db.OpenRecordset(SQL) 

Do Until rs.EOF 

With MyList. Add( , , rs(D) 
.Subltems(l) -rs(3) 
.Subltems(2) - rs(6) 
.SubltemsO) - rs(4) 
.Subltems(4) - rs(5) 
End With 

rs.MoveNext 

Loop 

rs. Close 

Set rs - Nothing 
db. Close 



VB5 

Attribute VB_Name- 
Option Explicit 



"Modulel" 



Global gsDatabase As String 
Global gsConnect As String 
Global gsRecordsource As String 

Global Const LISTVIEW_BUTTON- 11 

Publ ic fMainForm As f rmMain 

Sub Main( ) 

gsDatabase - "C:\Progr am Fil es\Microsoft " & _ 
Visual Basic\Apps\vbpj\vbpj97gs2\" &_ 
"TapeCol 1 ecti on .mdb" 

'add code to retrieve database path 

gsDatabase-GetSettingCApp. Title, "Settings". _ 
"DBPath", gsDatabase) 

gsConnect - "" 

frmSplash.Show 

frmSpl ash. Refresh 

Set fMainForm - New frmMain 

Load fMainForm 

Unload frmSplash 

fMainForm. Show 
End Sub 

Sub FillTreeViewt ) 

'add code to fill the treeview control 
Dim MyNodes As Nodes 

Dim SQL$, db As Database, rs As Recordset 
' f i rst add root note 

Set MyNodes -fMainForm. tvTreeView. Nodes 
MyNodes. Clear 

MyNodes. Add , . "r", "Tapes" 

'then get the Tape types from the database 
SQL - "select distinct Type from Tapes" 
Set db - OpenDatabase( gsDatabase) 
Set rs -db.OpenRecordset(SQL) 
Do Until rs.EOF 

MyNodes. Add "r", tvwChild, rs(0). rs(0) 

rs.MoveNext 
Loop 

rs. Close 

Set rs - Nothing 
db. Close 

Set db - Nothi ng 

'then add col umns to 1 i stview 
Wi th f Mai nForm. 1 vLi stVi ew. Col umnHeaders 
.Clear 

.Add , . "Program". fMainForm. lvListView. Width / 5 
.Add , , "Date". fMainForm. lvListView. Width / 5. _ 



Set db - Nothing 
End Sub 

Now run your application, click 
through the TreeView control, and watch 
it fill. Click on a tape and view the pro- 
grams for that tape. Select the Programs 
data form from the Data Forms menu 
item on the View menu, and add a new 
program to the tape. Then close the 
data form and click on that tape again to 
see that the program was added to the 
tape. Neat! You have a working Data- 
base Explorer application with very little 
code (see Figure 4). 

Now click on some of the other menu 



IvwColumnCenter 
Add , . "Subject", 
Mi nutes" , 
Counter" , 



.Add , 
.Add , 
End With 



f Mai nForm. 1 v Li stView. Width / 5 
fMainForm. lvListView. Width / 5 
fMainForm. lvListView. Width / 5 



End Sub 

Sub FillByTypetthisNode As Node) 

'add code to fill the treeview control 

Dim MyNodes As Nodes 

Dim SQL$, db As Database, rs As Recordset 

Set MyNodes - f Mai nForm. tvTreeView. Nodes 

'then get the Tape types from the database 

SQL - "select * from Tapes where Type -'"&"&_ 

"thisNode.Key & 
Set db-OpenDatabase(gsDatabase) 
Set rs-db.OpenRecordset(SQL) 
Do Until rs.EOF 

MyNodes. Add thisNode.Key. tvwChild, "T"&rs(0), 
"Tape " & rs(0) 

rs.MoveNext 
Loop 

rs. Close 

Set rs - Nothi ng 
db. Close 

Set db - Nothing 
End Sub 

Sub Fi 1 1 Prog ramstt hi s Node As Node) 
'add code to fill the treeview control 
Dim MyList As Listltems 
Dim Item As Listltem 

Dim SQL$, db As Database, rs As Recordset 

Set MyList - fMainForm. lvListView. Listltems 

MyList. Clear 

'then get the Tape types from the database 

SQL - "select * from Programs where TapelD - " _ 

&Mid(thisNode.Key, 2) 
Set db - OpenDat aba set gsDatabase) 
Set rs-db.OpenRecordset(SQL) 
Do Until rs.EOF 

With MyList. Add( , . rs(l)) 
.Subltems(l) -rs(3) 
.Subltems(2) - rs(6) 
.SubltemsO) -rs(4) 
.Subltems(4) - rs(5) 
End With 
rs.MoveNext 
Loop 

rs. Close 

Set rs - Nothing 
db. Close 

Set db - Nothing 
End Sub 



Listing 1 . Database Explorer Module. Here are the procedures to access the database and fill the TreeView andListView controls. 
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Attri bute VB_Name - "f rmMai n" 
Attribute VB_G1 obal NameSpace - False 
Attri bute VB_Creatab1 e - Fal se 
Attribute VB_Predecl a red Id - True 
Attri bute VB_Exposed - Fal se 
Option Explicit 
Const NAME_COLUMN - 
Const TYPE_COLUMN - 1 
Const SIZE_COLUMN - 2 
Const DATE_COLUMN - 3 

Private Declare Function OSWinHelp% Lib "user32 " Al ias . 

"WinHelpA" (ByVal hwnd&, ByVal HelpFile$, _ 

ByVal wCommand%, dwData As Any) 
Dim mbMoving As Boolean 
Const sglSplitLimit-500 

Private Sub Form_Activate( ) 

'addcodetofill treeview 

Form_Resize 

Call FillTreeView 
End Sub 

Private Sub Form_Load( ) 

Me. Left = GetSetting(App. Title. "Settings". _ 

"MainLeft". 1000) 
Me. Top-GetSetting(App. Title. "Settings", _ 

"MainTop". 1000) 
Me. Width-GetSetting(App. Title. "Settings", _ 

"MainWidth". 6500) 
Me. Height-GetSetting(App. Title, "Settings", _ 

"MainHeight", 6500) 
End Sub 

Private Sub Form_Paint( ) 

'lvListView.View-Val (GetSettingtApp. Title. _ 

"Settings", "ViewMode". "0")) 
tbTool Bar . Buttons ( 1 vLi stVi ew . Vi ew + _ 
LISTVIEW_BUTTON).Value-tbrPressed 
mnuLi stVi ewMode( 1 vLi stVi ew. Vi ew) . Checked - True 
End Sub 

Private Sub Form_Unl oad(Cancel As Integer) 
Dim i As Integer 

'close all sub forms 

For i - Forms. Count - 1 To 1 Step -1 

Unload Forms(i) 
Next 

If Me.Wi ndowState OvbMinimizedThen 

SaveSetting App. Title, "Settings", "MainLeft", _ 
Me. Left 

SaveSetting App. Title. "Settings", "MainTop", _ 
Me . Top 

SaveSetting App. Title. "Settings". "MainWidth", _ 
Me. Width 

SaveSetting App. Title. "Settings", "MainHeight", _ 
Me. Height 
End If 

SaveSetting App. Title, "Settings". "ViewMode", _ 
lvListView.View 
End Sub 

Private Sub 1 vLi stView_Cl ick( ) 
FillTreeView 

End Sub 

Private Sub mnuViewDataPrograms^Cl ick( ) 

Dim f As New f rmPrograms 

f .Show 
End Sub 

Pri vate Sub mnuViewDataTapes_Cl ick( ) 

Dim f As New f rmTapes 

f . Show 
End Sub 

Pri vate Sub mnuHel pAbout^Cl i ck( ) 
f rmAbout . Show vbModa I , Me 



End Sub 

Private Sub mnuView0ptions_Click( ) 
'To Do 

MsgBox "Options Dialog Code goes here!" 
End Sub 

Private Sub mnuViewStatusBar_Cl ick( ) 
If mnuVi ewStatusBar . Checked Then 
sbStatusBar. Visible - False 
mnuViewStatusBar. Checked - Fal se 
Else 

sbStatusBar. Visible -True 
mnuViewStatusBar. Checked -True 
End If 

SizeControls imgSpl itter. Left 
End Sub 

Private Sub mnuViewTool bar_Cl ick( ) 
If mnuVi ewTool bar. Checked Then 
tbTool Bar. Visible -False 
mnuViewTool bar. Checked - False 

Else 

tbTool Bar. Vi si bl e - True 
mnuViewTool bar .Checked - True 

End If 

SizeControls imgSplitter.Left 
End Sub 

Pri vate Sub Form_Resi ze( ) 
On Error Resume Next 
If Me. Width < 3000 Then Me. Width - 3000 
SizeControls imgSplitter.Left 

End Sub 

Private Sub imgSplitter_MouseDown(Button As Integer, _ 
Shift As Integer, x As Single, Y As Single) 
With imgSplitter 

picSplitter.Move .Left, .Top, .Width \ 2, _ 
.Height - 20 
End With 

pi cSpl itter. Visible -True 
mbMovi ng - True 
End Sub 

Private Sub imgSplitter_MouseMove(Button As Integer, _ 
Shift As Integer, x As Single, Y As Single) 

Dim sgl Pos As Singl e 

If mbMovi ng Then 

sgl Pos - x + imgSpl itter. Left 
If sgl Pos < sglSplitLimit Then 

pi cSpl itter. Left - sgl Spl it Limit 
El self sglPos > Me. Width - sglSplitLimit Then 

pi cSpl itter. Left -Me. Width - sglSplitLimit 
Else 

picSpl itter. Left - sgl Pos 

End If 
End If 
End Sub 

Private Sub imgSplitter_MouseUp(Button As Integer, _ 

Shift As Integer, x As Single, Y As Single) 

SizeControls pi cSpl itter. Left 

picSpl itter. Visible - Fal se 

mbMoving - False 
End Sub 

Sub SizeControlsU As Single) 
On Error Resume Next 

' set the wi dth 

If x < 1500 Then x - 1500 

If x > (Me. Width - 1500) Then x - Me. Width - 1500 

tvTreeView. Width - x 
imgSplitter. Left-x 
lvListView.Left-x + 40 

lvListView.Width-Me. Width - (tvTreeView. Width* 140) 



CONTIHUtD ON NEXT PAGE. 



Listing 2. Main Form. This listing contains the code generated by the Application Wizard, with the additional enabled menu items. 
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items and toolbar buttons. You'll see 
that there are still a few To Do items in 
the code, such as the Find menu item on 
the Files menu. You may decide that 
certain menu items that the Application 
Wizard created simply don't make any 
sense for this application. Display 



frmMain in design mode and display the 
Menu Editor from the Tools menu. If you 
want to skip an entire menu and all its 
menu items, such as the Edit menu, 
simply uncheck the Visible checkbox. 
Similarly, you can disable other menu 
items such as all the items on the File 



menu except Open, Find, Properties, and 
Close, which you can implement now. 

The Open menu item should let the user 
specify a different location for the 
TapeCollection database and reset the Data 
Controls and the gsDatabase variable to 
open this database. Click on the Open menu 



CONTINUED FROM PREVIOUS PAGE. 

lblTitle(0).Wid th-tvTreeView. Width 
1 bl Ti tl e( 1 ). Left -IvLi stView. Left + 20 
1 blTitle(l) .Width - 1 vListView. Width - 40 

' set the top 

If tbToolBar. Visible Then 

tvTreeVi ew. Top - tbTool Bar. Height + _ 
pi cTi ties. Height 

Else 

tvTreeView.Top - picTi tl es .Height 
End If 

1 v Li stView. Top -tvTreeView.Top 

' set the height 

If sbStatusBar . Vi si ble Then 

tvTreeVi ew. Height - Me . Seal eHei ght - _ 
(pi cTi ties .Top + picTitles.Height + _ 
sbStatusBar. Height) 

Else 

tvTreeView.Height-Me.ScaleHeight - _ 
( pi cTi tl es. Top + pi cTi ties. Height) 
End If 

1 v Li stView. Height - tvTreeVi ew. Height 
i mgSpl i tter .Top - tvTreeVi ew . Top 
imgSpl itter .Height - tvTreeVi ew. Height 
End Sub 

Private Sub TreeViewl„DragDrop(Source As Control , 

x As Single, Y As Single) 

If Source - imgSpl itter Then 
SizeControls x 

End If 
End Sub 

Private Sub tbTool Bar_ButtonCl ick_ 
( By Val Button As Comctl Li b . Button ) 

Sel ect Case Button . Key 

Case "Back" 
'To Do 

MsgBox "Back Code goes here!" 
Case "Forward" 
'To Do 

MsgBox "Forward Code goes here!" 
Case "Cut" 

mnuEditCut_Click 
Case "Copy" 

mnuEditCopy_Click 
Case "Paste" 

mnuEditPaste^Click 
Case "Delete" 

mnuFi 1 eDel ete_Cl ick 
Case "Properti es" 

mnuFi 1 eProperti es_Cl i ck 
Case "ViewLarge" 

mnuListViewMode_Click lvwlcon 
Case "ViewSmall" 

mnuListViewMode_Click IvwSmall Icon 
Case 'ViewList" 

mnuLi stVi ewMode_Cl i ck 1 vwLi st 
Case "ViewDetails" 

mnuLi stVi ewMode_Cl i ck 1 vwReport 
End Select 
End Sub 



Private Sub mnuHelpContents_Click() 



Dim nRet As Integer 

' i f there is no hel pf 1 1 e for this project di spl ay a 
'message to the user 

'you can set the HelpFile for your application in 

' the Project Properties di al og 

If Lent App. HelpFile) -0 Then 

MsgBox "Unabl e to di spl ay Hel p Contents . " & _ 
"There is no Help associated with this " & _ 
"project.", vblnformation. Me. Caption 

Else 

On Error Resume Next 

nRet-OSWinHelp(Me.hwnd, App. Hel pFi 1 e, 3, 0) 
If Err Then 

MsgBox Err . Descri pti on 
End If 
End If 
End Sub 

Private Sub mnuHel pSearch_Cl ick( ) 
Dim nRet As Integer 

'if there is no helpfile for this project display a 
'message to the user 

'you can set the HelpFile for your application in the 

'Project Properties dialog 

If Len( App. HelpFile) - Then 

MsgBox "Unabl e to di spl ay Hel p Contents . " & _ 
"There is no Help associated with this " & _ 
"project.", vblnformation. Me. Caption 

Else 

On Error Resume Next 

nRet-OSWinHelp(Me.hwnd, App. HelpFile, 261. 0) 
If Err Then 

MsgBox Err. Description 
End If 
End If 
End Sub 

Private SubmnuVAIByDate_Click() 
'To Do 

' 1 vLi stVi ew. SortKey - DATE_C0LUMN 

End Sub 

Pri vate Sub mnuVAIByName_Cl i ck( ) 

'To Do 

' 1 vLi stVi ew. SortKey - NAME_C0LUMN 

End Sub 

Private Sub mnuVAIBySize„Cl ick( ) 
'To Do 

' 1 vLi stVi ew. SortKey - SIZE^COLUMN 

End Sub 

Private Sub mnuVAIByType_Click( ) 

'To Do 

' 1 vLi stView. SortKey - TYPE_C0LUMN 

End Sub 

Private Sub mnuListViewMode_Click( Index As Integer) 
'uncheck the current type 

mnuLi stVi ewModet 1 vLi stView. Vi ew) .Checked - Fal se 

'set the 1 istview mode 
lvListView.View- Index 
'check the new type 
mnuLi stVi ewModet Index) .Checked - True 

CONTINUED ON NEXT PAGE. 
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item to display the code window, and enter 
this code to use the CommonDialog control 
to let the user locate the database: 

Private Sub mnuFi 1 eOpen_Cl i ck( ) 
dl gCommonDi al og . Fi 1 ter -_ 

"Database|*.mdb" 
dl gCommonDi alog. Act ion - 1 
gsDatabase - dl gCommonDi al og . f i 1 ename 
End Sub 

Add a line of code in the Form_Load 
event of the two data forms to set the 
Datal.DatabaseName property to the 

CONTINUED FROM PREVIOUS PAGE. 



'set the toolabr to the same new type 
tbTool Bar . Buttons ( Index + LISTVIEW„BUTTON) . Val ue -_ 
tbrPressed 
End Sub 

Private Sub mnuViewLineUpIcons_Cl ick( ) 
'To Do 

1 v Lis tView. Arrange - 1 vwAutoLeft 
End Sub 

Private Sub mnuViewRef resh_Cl ick( ) 
'To Do 

MsgBox "Refresh Code goes here ! " 
End Sub 

Private Sub mnuEditCopy_Cl i ck( ) 
'To Do 

MsgBox "Copy Code goes here!" 
End Sub 

Private Sub mnuEdi tCut„Click( ) 
'To Do 

MsgBox "Cut Code goes here!" 
End Sub 

Pri vate Sub mnuEdi tDSel ectAl 1_C1 ick( ) 
'To Do 

MsgBox "Select Al 1 Code goes here!" 
End Sub 

Private Sub mnuEdi tlnvertSel ection_Cl ick( ) 
'To Do 

MsgBox "Invert Selection Code goes here!" 
End Sub 

Private Sub mnuEditPaste_Cl ick( ) 
'To Do 

MsgBox "Paste Code goes here!" 
End Sub 

Private Sub mnuEdi t Pas teSpeci a 1_C1 ick( ) 
'To Do 

MsgBox "Paste Special Code goes here! ' 
End Sub 

Private SubmnuEditUndo_Click( ) 
'To Do 

MsgBox "Undo Code goes here!" 
End Sub 

Private Sub mnuFi leOpen_Cl ick( ) 

dl gCommonDi al og . Fi 1 ter - "Database | * . mdb" 

dl gCommonDi a 1 og. Action - 1 

gsDatabase - dl gCommonDi a 1 og . f i 1 ename 

End Sub 

PrivateSub mnuFil eFind_Cl ick( ) 
Dim txt$, fnd$ 

Dim SQL$, db As Database, rs As Recordset 

txt - InputBoxC'Enter the text you want to find") 



gsDatabase variable. You can enable the 
Properties menu item on the File menu 
so it displays a message box with the 
current database location: 

Pri vate Sub mnuFi leProperties_Cl ick( ) 
MsgBox gsDatabase, vblnformation, 

"Database Location" 
End Sub 

Finally, you can enable the Find menu 
item to search the Programs table for a 
text string and display the Program and 
TapelD. Use the InputBox statement to let 



the user enter the text, then create a SQL 
statement using the Like operator to 
search in the Name and Subject fields of 
the Programs table: 

Pri vate Sub mnuFi 1 eFind_Cl ick( ) 
Dim txt$ , fnd$ 

Dim SQL$, db As Database, rs As 
Recordset 

txt - InputBox( _ 

"Enter the text you want to find") 
SQL - "select TapelD, Name, " & _ 

"Subject from Programs where " & _ 



SQL - "select TapelD, Name, Subject from Programs " & _ 
"where Name 1 i ke '*" & txt & "*' or Subject 1 i ke " & _ 
"'*" & txt & "*"' 
Set db - OpenDat abase (gsDatabase) 
Set rs -db.OpenRecordset(SQL) 
Do Until rs.EOF 

fnd - fnd & rs(0) & vbTab & rs(l) & vbTab & rs(2) _ 

& vbCrLf 
rs.MoveNext 
Loop 

If Len(fnd) - Then fnd - "Not found" 
MsgBox fnd, vblnformation, txt 

rs. Close 

Set rs - Nothi ng 
db. Close 

Set db - Nothing 
End Sub 

Private Sub mnuFi 1 eSendTo_Cl ick( ) 
'To Do 

MsgBox "Send To Code goes here!" 

End Sub 

Pri vate Sub mnuFi 1 eNew_Cl ick( ) 
'To Do 

MsgBox "New File Code goes here!" 

End Sub 

Private Sub mnuFi 1 eDel ete_Cl ick( ) 
'To Do 

MsgBox "Delete Code goes here!" 
End Sub 

Pri vate Sub mnuFi leRename_Cl ick( ) 
'To Do 

MsgBox "Rename Code goes here! " 

End Sub 

Pri vate Sub mnuFi 1 eProperties_Cl ick( ) 
MsgBox gsDatabase, vblnformation. "Database Location" 

End Sub 

Pri vate Sub mnuFi leMRU_Cl ick( Index As Integer) 

'To Do 

MsgBox "MRU Code goes here!" 
End Sub 

Pri vate Sub mnuFi 1 eCl ose_Cl ick( ) 
' unl oad the form 
Unl oad Me 
End Sub 

Pri vate Sub tvTreeVi ew_NodeCl i ck_ 
(ByVal Node As Comctl Lib. Node) 
'now get the records for this node 
If LefUNode.Key, 1) - "T" Then 

Fi 1 1 Programs Node 
Else 

Fi 1 lByType Node 
End If 
End Sub 
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D 



atabase access is a stumbling 
block for many beginning 
programmers, but Microsoft has 
made it easy with Visual Basic. 



"Name like '*" & txt & "*• or " & _ 
"Subject like '*" & txt & "*'" 

Then open the database and 
recordset, and loop through the 
recordset concatenating the fields into a 
found string to display in a message box: 

Set db - Open Da tabase(gs Data base) 
Set rs - db.OpenRecordset(SQL) 
Do Until rs.EOF 

fnd - fnd & rs(0) & vbTab & rs(l) & _ 
vbTab & rs(2) & vbCrLf 

rs .MoveNext 
Loop 

If Lent fnd) - Then fnd - "Not found" 
MsgBox fnd, vblnf ormati on , txt 



rs. Close 

Set rs - Nothing 
db. Close 

Set db - Nothing 
End Sub 

You can follow the procedures to ac- 
cess the database and fill the TreeView 
and ListView controls (see Listing 1). 
You can also follow along with the code 
generated by the Application Wizard to 
see how it enabled the menu items (see 
Listing 2). Finally, you can download the 
entire Database Explorer application and 
a sample TapeCollection database from 
the free, Registered Level of The Devel- 
opment Exchange (see the Code Online 



box at the end of this article). 

Have some fun with this application. 
See what other features you can add to it 
and try to reuse the code to access a 
different database — you're well on your 
way to writing more complex Visual Basic 
database applications. ^ 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:/ / 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club," in the 
Table of Contents. 

Build a Database for Your Videotape 
Collection 

Locator+ Codes 

Listings for the entire issue, plus 
DBGS198.ZIP, which includes the entire 
Database Explorer application and a sample 
TapeCollection database (free Registered 
Level): GS1 98 

Listings for this article only, plus the file 
described above (subscriber Premier Level): 
DBGS198 




User Tip 




VB3, VB4 16/32, VB5 
Level: Beginning 

USE DATEDIFF TO 
CALCULATE CALENDAR 
WEEK 

Use VB's DateDiff function to calculate the 
calendar week in which a given date falls: 

Publ i c Functi on Week(ByVal 1 Date As Long) _ 
As Integer 

On Error Resume Next 
' Calculate number of weeks between 
' beginning of year and target date 
Week- DateDiff ("ww", _ 

DateSeriaKYear(lDate). 1.1). IDate) _ 

+ 1 

End Function 

In VB4 and VB5, you can use DateDifTs 
optional parameters to select which day is the 
first day of the week, and to determine the first 
week of the year. Consult the documentation on 
the DateDiff function for more information. 



Add Professional Scheduli ng and Planning 
to your applications with theHffllof a button. 

2C 




Schedule/OCX" is a 32 bit OLE Custom Control that 
will add visual scheduling to your applications with just 
the click of a button. 
Use it for employee work 
schedules, conference schedul- 
ing, personal information man- 
agers and more! 

Over 200 properties/methods 
and over 80 events, including 
printing' 



ifiantt/ocx 




Gantt/OCX is a 32 bit OLE Custom Com 
that will add visual project planning 
tracking to your applications with just the click | 

of a button. 

Planned and actual bars, 
progress tracking through H or 
actual dates, slack bar display 
and printing. 



ADDSoft OLE Controls work with Visual Basic", Visual C++", Access 95", 
Visual FoxPro". Delphi" and most other OLE containers and they're Royalty-Free! 

Visit our Web Site for free demos, upgrades and more - http://www.addsoft.com 

Order today and start scheduling and planning tomorrow! Only s 249 each 

800-229-0559 - 402-491-4141 . 4024914152 fai • 1 1850 Nicholas St • Omaha, NE. U.S.A. 68154. e-mail: Salts@ADDSoft.coni 
Copyright © 1997 ADDSoft, Inc. ADDSoft, Schcdulc/OCX and Gantl/OCX ait mdemarics of ADDSoft, Inc. 
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The main event for Visual Basic development professionals 

• 5 full days & 5 tracks 

3 technical sessions tracks 
2 product demo tracks from leading vendors 
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See all the latest 3rd party tools from leading vendors 

• Over 2,000 developers 

The hardcore elite of the Windows community, all in one place 
sharing information and learning new technologies that shape the industry. 

• FREE Software for all attendees 



Special NDA Sessions! 



• Past VBITS attendees have received sneak previews 
of unreleased products. You'll hear the latest, and 
you'll hear it FIRST in San Francisco! 
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from Microsoft. 
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Web- Aware Apps 



Link Your App to a 



Web Server 



With VB5, you can not 
only Web-enable your 
app, but also make it 
Web-aware. 



A common feature in Web- 
enabled software applications 
is the ability to pop up a browser 
and display a Web page. This is 
an easy feature to add to your software — 
would you believe it takes only about four 
lines of code? In this column, I'll show you 
not only how to Web-enable your app, but 
also how to make it Web-aware, so it has 
direct access to text returned by the Web 
server (see Figure 1). 

You can probably think of many apps 
that could utilize this direct Web access. 
How about an app that cycles through a 
database of UPS package tracking num- 

Chris Barlow is president of SunOpTech, a 
developer of document management, deci- 
sion-support, and supply chain applications, 
including the ObjectBank, ObjectOrder, and 
ObjecUob systems. He holds two U.S. Pat- 
ents related to software for decentralized 
distributed asynchronous object-oriented and 
scheduling systems. Chris, who is a frequent 
speaker at WITS, Tech'Ed, and DevDays 
and has been featured in two Microsoft 
videos, holds degrees from Harvard Busi- 
ness School and Dartmouth College. Reach 
Chris atChris@VBExpert.com or through his 
Web server at www. VBExpert.com. 



bers, finds out from www.ups.com 
whether the package had been delivered, 
and updates the database with the deliv- 
ery information? How about an app that 
downloads future ocean tide information 
from www.tides.com/cgi-bin/tcweb.exe 
and puts it into a local 
database so you can 
review it when you're 
on your sailboat? Or 
how about an app that 
checks the Date Modi- 
fied property of all the 
Web pages in your Fa- 
vorites folder and noti- 
fies you of any change? 

First, I'll show you 
how to Web-enable 
your software app. To 
create an app that links 
to a browser and dis- 
plays a Web page, you 
need to set up your 
computer to work with 
Web apps. I suggest 
using Windows 95, Vi- 
sual Basic 5, Internet 
Explorer 3.02, Visual 
InterDev, and Personal 
Web Server with the 
Active Server Page 
(ASP) extensions so 
you can test your Web 
apps on your own sys- 
tem. If you don't use 
Visual InterDev, use 
FrontPage. 

Now you're ready to 
add Web access to an 
existing VB project or to 
anewproject. Right-click 



on the project and display the References. 
Make sure Microsoft Internet Controls is 
checked; if not, use the Browse button to 
locate the SHDOCVW DLL in your Windows 
System folder (see Figure 2). Internet Ex- 
plorer also uses this DLL. Press the F2 key to 
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Figure 1 .Make Your App Web-Aware. Atoneof my company's 
client's manufacturing plants, each production department 
running SunOpTech scheduling software "publishes" its 
production schedule on its Web server. When an app running in 
one department needs to check when its components will be 
ready in another department, the app contacts the Web server 
in the second department and requests the current schedule for 
that component. Although this interapplication communication 
between departments uses standard Web protocols, the exchange 
of information isn't visible to the user and doesn't require user 
interaction. The application has direct access to the text returned 
by the Web server. 
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plorer class within this DLL. The Navigate 
method takes aURL as an argument, pops up 
Internet Explorer, and jumps to the URL. 

Add a form to your project, and 
place a TextBox control and a 
CommandButton control. Double-click on 
the CommandButton control and add this 
code, which calls another subroutine and 
passes the URL typed into the TextBox 
control: 

Private Sub Commandl_Cl ick( ) 

GoExplorertxtURL 

End Sub 

Dimension a variable, cWeb, to hold 
an instance of the InternetExplorer class. 
Create the GoExplorer subroutine with 
these three lines of code to instantiate the 
class. Now call the subroutine's Navigate 
method with the URL, and make the 
Internet Explorer window visible: 

Dim cWeb As 

SHDocVw. InternetExpl orer 

Private Sub GoExplorer(sURL$) 

Set cWeb - New 

SHDocVw. InternetExpl orer 

cWeb. Navigate sURL 

cWeb. Visible -True 

End Sub 

Now your application can do the same 
thing done by many software packages 
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Figure 2. Project References. This dialog lets you set the references that the Visual Basic 
editor will recognize as you type code. Adding a reference here lets you easily view the 
properties and methods in the Object Browser. A reference also lets VB provide proper 
syntax checking as you enter code using this object's properties and methods. 



advertised as "Web-enabled" apps. 

MAKE YOUR APPLICATION WEB-AWARE 

As neat as it is to be able to pop up a 
browser already navigated to a specific 



VB4/32, VB5 



Option Explicit 

Public Const INTERNET_OPEN_TYPE_PRECONFIG - 

' indicates to use config info from registry 

Public Const INTERNET_FLAG_EXISITING_CONNECT - &H20000000 

Public Declare Function InternetOpenUrl Lib_ 
"wi ni net.dl 1 " Al ias "InternetOpenUrl A" _ 
(ByVal hlnternetSessi on As Long, _ 
ByVal IpszUrl As String, _ 
ByVal IpszHeaders As String, _ 
ByVal dwHeadersLength As Long, _ 

ByVal dwFlags As Long, ByVal dwContext As Long) As Long 

Publ 1 c Decl are Function InternetOpen Li b "wi ni net .dl 1 " _ 
Al i as "InternetOpenA" (ByVal s Agent As Stri ng , _ 
ByVal lAccessType As Long, _ 
ByVal sProxyName As String, _ 

ByVal sProxyBypass As String, ByVal 1 Flags As Long) As Long 

Publ i c Decl are Fun ct ion InternetReadFi 1 e Li b _ 
"wi ni net .dl 1 " ( ByVal hFi 1 e As Long, _ 
ByVal sBuffer As String, _ 
ByVal 1 NumBytesToRead As Long, _ 
1 NumberOfBytesRead As Long) As Integer 

Publ i c Decl are Fun cti on Internet CI oseHandleLib_ 
"wininet.dll" (ByVal hlnetAs Long) As Integer 

Listing 1. Win32 Internet Module. This module contains the function declarations 
from the Winlnet DLL used by the GSInternet application. 



URL, it doesn't make your app a "Web" 
app. You still rely on the user to point and 
click to navigate beyond that URL, and 
the text on the Web pages is not readily 
available to your app. 

At my company, SunOpTech, we de- 
velop apps that go beyond "Web-enabled" 
to become "Web-aware." These apps rely 
on Web servers to provide much of the 
data they need to operate. For example, in 
one of our client's manufacturing plants, 
each production department running 
SunOpTech scheduling software "pub- 
lishes" its production schedule on its Web 
server (see Figure 1). When an app running 
in one department needs to check when its 
components will be ready in another de- 
partment, the app contacts the Web server 
in the second department and requests 
the current schedule for that component. 
Although this interapp communication be- 
tween departments uses standard Web 
protocols, the exchange of information 
isn't visible to the user and doesn't require 
user interaction. The app has direct ac- 
cess to the text returned by the Web server. 
The SHDOCVW method doesn't provide 
this functionality. Fortunately, you can ac- 
complish this nearly as easily with the 
Win32 Internet functions built into the 
Winlnet DLL. 

The Winlnet DLL gives complete 
Internet functionality to any VB app. When 
you use this DLL, you don't need to use the 
SHDOCVW DLL or any other Internet con- 
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Web- Aware Apps 



VB4/32, VB5 

Option Expl icit 

Dim cWeb As SHDocVw. InternetExpl orer 
Private Sub Commandl_Click( ) 
GoExplorer txtURL 
End Sub 

Private SubGoExplorer(sURL$) 

Set cWeb-New SHDocVw. InternetExpl orer 

cweb.NavigatesURL 

cWeb. Visible-True 

End Sub 

PrivateSub Command2_Cl i ck( ) 
MsgBox Gowinlnet(txtURL) 
End Sub 

Private Function GoWinInet(sURL$) _ 

As String 
Dim sBuffer As String * 4096 
Dim sReturn As String 
Dim INumBytes As Long 
Dim 1 Session As Long 
Dim lFile As Long 
Dim bReadOK As Boolean 
1 Session -_ 

InternetOpenC'GSInternet". _ 

INTERNET_OPEN_TYPE_PRECONFIG, _ 

vbNullString, vbNullString, 0) 
1 File - InternetOpenUrl (1 Session, _ 

sURL, vbNullString. 0, _ 

INTERNET_FLAG_EXISITING_CONNECT, 0) 
If 1 File Then 

Do 

bReadOK 

InternetReadFi led File, _ 

sBuffer, Len(sBuffer) , _ 

INumBytes) 
If INumBytes Then 

sReturn - sReturn & _ 

Left$(sBuffer, INumBytes) 
End If 

Loop While bReadOK And INumBytes > 
InternetCloseHandle (lFile) 
GoWinlnet- sReturn 
Else 

MsgBox "Cannot open URL" 
End If 

End Function 

Listing 2. GSInternet Form. This module 
contains the code for both the SHDOCVW 
and Winlnet functions that let you access 
the Web from any Visual Basic application. 

trols on the market. To keep it simple, use 
only four of the functions from this DLL. 
For more detailed information, look at the 
Microsoft Win32 Internet Programmer's 
Reference at www.microsoft.com/intdev/ 
sdk/docs/wininet. 

Add a module to your project and 
insert the function declarations for the 
Winlnet DLL (see Listing 1). You'll use 
these four functions: 

• InternetOpen to establish an Internet 
session for your application. 

• InternetOpenURL to connect to a Web 
server and make sure the file exists on the 
Web server. 

• InternetReadFile to read the HTML text 
from the file on the Web server. 

• InternetCloseHandle to close the file 
after you read it. 

Let's step through the function you'll 



write to retrieve data from a Web server. 
Create a function called GoWinlnet that 
receives a string argument of the URL and 
returns the text from that URL as a string. 
Dimension a 4K buffer, sBuffer, to hold 
the text from each read of the file, and a 
string, sReturn, to hold the entire text 
from the file. Dimension a long variable to 
hold the number of bytes read from the 
file, and a Boolean, bReadOK, to hold the 
return value from reading the file. Finally, 
dimension two long variables, lSession 
and lFile, for the session and file handles 
returned by the function calls: 

Private Function GoWinInet(sURL$) _ 

As String 
Dim sBuffer As String * 4096 
Dim sReturn As String 
Dim 1 NumBytes As Long 
Dim bReadOKAs Boolean 
Dim 1 Sessi on As Long 
Dim lFile As Long 

Call the InternetOpen function to re- 
turn a handle to an Internet session. Pass 
this handle to the next function call to 
connect to a URL: 

ISessi on - _ 

InternetOpenC'GSInternet", _ 
INTERNET_OPEN_TYPE_PRECONFIG, _ 
vbNullString, vbNullString, 0) 

Call the InternetOpenUrl function to 
pass the URL and the handle to the ses- 
sion and to save the returned handle that 
points to the file on the Web server: 

1 Fi 1 e - InternetOpenUrl (lSession, _ 
sURL, vbNullString, 0, _ 
INTERNET _FLAG_EXISITING_CONNECT, 0) 

If a nonzero file handle is returned, 
begin a Do loop to read text from the file 
into the buffer using the InternetReadFile 
function. This function fills in the fourth 
argument with the actual number of bytes 
read from the file, and returns a nonzero 
value if the function was successful. If any 
bytes are returned, concatenate them to 
the sReturn string from the buffer: 

If 1 File Then 
Do 

bReadOK- InternetReadFile. 
(lFile, sBuffer, _ 
Len(sBuffer) . INumBytes) 

If 1 NumBytes Then 

sReturn - sReturn & _ 

Left$( sBuffer, INumBytes) 

End If 

If the prior read is successful and bytes 
were read, loop back and execute another 
read. Continue until the file is completely 
read. Call the InternetCloseHandle func- 



tion to close the file and return the com- 
plete text to the function: 

Loop Whi 1 e bReadOK And 1 NumBytes > 
InternetCloseHandle (lFile) 
GoWinlnet - sReturn 
Else 

MsgBox "Cannot open URL" 
End If 

End Function 

That's all you need to do to get the raw 
text from any URL onto a Web server. Test 
this within your app by adding a second 
CommandButton to your form and this 
code. This code passes the URL to your 
new GoWinlnet function and displays the 
returned text in a message box: 

Pri vate Sub Command2_Cl i ck( ) 
MsgBox GoWinlnet(txtURL) 
End Sub 

Give this a try and you should see the 
actual HTML text from the URL displayed 
in the message box. Now that you have 
the text, you can parse it to find the par- 
ticular values your app needs. When 
SunOpTech writes similar routines for 
interapplication communication, we sig- 
nal the Web server to return minimal 
HTML text so little parsing is needed to 
get the required data. We do this by add- 
ing an extra argument to the query argu- 
ments embedded in the URL to indicate 
an app rather than a user will read the 
resulting HTML file. 

I've included the code that lets your app 
access the Web, using both the SHDOCVW 
version and the Winlnet version (see List- 
ing 2). Download the VB files from The 
Development Exchange Web site (see the 
Code Online box for details). For your next 
step, try to encapsulate these Winlnet func- 
tions in your own ActiveX control. S 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club," in the 
Table of Contents. 

Link Your App to a Web Server 
Locator* Codes 

Listings for the entire issue, plus WEBSERV.ZIP, 
which contains the VB files that let your app 
access the Web, including both the 
SHDOCVW version and the Winlnet version 
(free Registered Level): GS1 98 
Listings for this article only, plus the files 
described above (subscriber Premier Level): 
WSGS198 
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Automating Office 



Integrate Office Components 



with 



Automation 



ihristine Solomon 



Your Office 
applications can 
employ one another's 
components using 
programmable 
objects from multiple 
sources. 



Microsoft's Component Object 
Model (COM) specification 
lets users create compound 
documents and developers 
create compound applications, known as 
integrated applications. Just as compound 
documents include materials created us- 
ing multiple applications — such as charts 
from Microsoft Excel and illustrations 
from Visio — integrated business applica- 
tions include programmable objects from 
multiple sources. For example, a Microsoft 
Access-based application might use 
Excel's Worksheet object as a financial 
calculation engine, or a Microsoft Word- 
based application might use the Binder 
object to assemble a report that includes 
financial analyses presented in Excel. (For 
more information on terminology, see the 
sidebar "Automation: What ActiveX, COM, 
and VBA Have in Common.") 

This article explains how you can use 
Automation — formerly known as OLE 
Automation — and VBA to control pro- 
grammable, ActiveX objects exposed, or 
made available, by Microsoft Office. 



References - VBAPioject 



Available References: 



Applications that 
can control another 
application's exposed 
objects are called Au- 
tomation controllers, 
and applications that 
expose objects are 
called ActiveX servers. 
Exposed objects are 
considered to be ob- 
jects only by a pro- 
gramming language 
that can manipulate 
them. For example, to 
a language that in- 
cludes Automation 
capabilities, the Word 
application is an ob- 
ject, the PowerPoint 
application is an ob- 
ject, the Excel appli- 
cation is an object, 
and so are Excel 
worksheets. People 
who use integrated business applications, 
however, might never know that another 
application is involved behind the scenes. 

Your ability to use Automation to cre- 
ate custom business applications from 
existing software components gives you a 
new set of tools that leverages a company's 
investment in shrinkwrapped products. 
As a developer, you can think of Automa- 
tion-enabled applications as a set of ser- 
vices that your integrated business appli- 
cations can plug into through Automation: 

• Access provides database services. 

• Excel provides calculation and finan- 
cial-presentation services. 

• Word provides word-processing and 
desktop-publishing services. 

• Microsoft PowerPoint provides slide- 
show services. 
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Figure 1 . Add Object Libraries. Use the References dialog box 
to add object libraries to your project. You can use early binding for 

all referenced objects. 



• The Office Binder provides document- 
integration services. 

• Microsoft Outlook provides contact- 
management services. 

In some cases, the price of convenient 
access to such high-powered services is 

Christine Solomon is a software designer 
and writer living in New York City. She 
developed her first Excel-based applica- 
tion in 1989, and has since designed and 
developed for Fortune 1000 companies 
dozens of business applications based on 
Microsoft Office products and Visual Ba- 
sic. She is the author of Microsoft Office 
97 Developer's Handbook (third edition), 
published by Microsoft Press, from which 
this article is adapted. You can reach Chris- 
tine at csolomon@panix.com. 
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Automating Office 



performance. However, with careful de- 
sign and programming, you can develop 
integrated applications that take advan- 
tage of shrinkwrapped software-based 
services and perform acceptably. You can 
also build higher-performance applica- 
tions that use custom business objects 
built in C or C++ or Microsoft VB4 or later. 

PUTTING ACTIVEX OBJECTS TO WORK 

From one point of view, Automation con- 
sists of exactly two functions: CreateObject 
and GetObject. No matter which control- 
ler you use to start Automation, you start 
it with one of these two functions. 

But once you start Automation, you 
can think of it as a superset of all ActiveX 
servers, including all Office applications. 
For example, when you build an integrated 
business application in Access that uses 
Excel as an ActiveX component, you use 
Excel's objects, properties, and methods 
in the code you write in Access modules. 

With a few minor modifications, you 
can write code for the ActiveX server in 
the controller just as you would if you 
were writing it in the server. If you're 
writing code that uses Excel, Word, or 
PowerPoint as the server and aren't famil- 
iar with the server's object model and 
libraries, start with code from the macro 
recorder and paste it into the controller. 
(For more information, see the section 
"From One Application to Automation" 
later in this article.) 

Use CreateObject to start an application 
as an ActiveX server so you can use that 
application's functionality. The Create- 
Object function creates an instance — an 
example — of an object's class. (For more 
information on objects and classes, see the 
sidebar, "That Obscure Object of Desire.") 
First, declare an object variable: 

Dim objVariable As Object 

Then, assign a reference to it: 

Set objVari abl e - CreateObject _ 
("Applicat i onName . Object Type " ) 



Automation: What ActiveX, COM, 
and VBA Have in Common 



ActiveX is an open specification designed to govern how software components 
interact. The Component Object Model (COM) is a key element of ActiveX. 
COM specifies the common interface that enables software written by differ- 
ent companies and even in different programming languages to interact 
through linking or embedding or through Automation. 

VBA — the programming language common to all Microsoft Office prod- 
ucts — uses Automation to control objects programmatically. Whether you 
write code in Excel to control Excel or whether you write code in Access to 
control Excel, you're in fact manipulating Excel's objects. Be aware, however, 
that it's faster to manipulate objects in-process than out-of-process. For 
example, under Microsoft Windows 95, it's more than twice as fast on a 486, 
100 MHz laptop to manipulate Excel's objects from within Excel than from 
Access. — C.S. 





Application 


Object Type 


Class 


Excel 


Application 


Excel.Application 




Sheet 


Excel.Sheet 




Chart 


Excel.Chart 


Word 


Application 


Word.Applicotion 


PowerPoint 


Application 


PowerPoint.Application 


Access 


Application 


Access.Applicotion 
Binder 


Office 


Binder 


Outlook 


Application 


Outlook.Application 



Table 1 . Application Names and Object Types for Automation Components. You 

can append a ".8" to the application object names to distinguish them from objects that 
might be created with future or past versions of these applications. 



ApplicationName. ObjectType is usually 
the class of object that you're creating. In 
some cases — such as Binder — Applica- 
tionName. ObjectType is not identical to 
the class name. Take a look at the list of 
application names, object types, and 
classes for Microsoft Office applications 
(see Table 1). 

Although these two lines of code 
launch any ActiveX server, they don't do 
this in the most efficient way possible. For 
best performance, use early binding. 

Late binding occurs when you declare 



an object variable with the keyword Ob- 
ject, as in the sample code shown. This 
keyword, which is the most general avail- 
able, lets you create objects of any class. 
However, variables declared in this way 
are bound to the specific obj ect they refer 
to late, when the code runs. Early binding 
occurs when you declare obj ect variables 
with a specific class, so that binding oc- 
curs when you compile the code. 

To declare object variables with a spe- 
cific class, you must load the object li- 
brary containing that class into the VBA 



VBA5 

Sub XLexample( ) 

'Declare the object variable at the module level 'to 
prevent the Excel object from closing automatically 
'at the end of the procedure, e.g. , 
'DimmobjXLas Excel .Application 

Dim strMsg As Stri ng 

'Create the Excel object. 

Set mobjXL - CreateObject ("Excel .Application") 

'View the Excel object. 



mobj XL. Visible -True 
'Use a message box to pause code execution. 

strMsg - "CI ick OK to close the Excel object." 
MsgBox prompt :-strMsg, Buttons :-vbInf ormati on , 
Title:-"Getting Started" 

'Close the object. 
mobjXL.Quit 

'CI ear the object variabl e. 

Set mobjXL = Nothi ng 
End Sub 



Listing 1 . Automate Excel. When you declare an object variable at the module level and use it to launch an instance of Excel, that 
object persists beyond the end of the procedure. 
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code module. However, before writing 
Automation code, reference the ActiveX 
server's object library. To do this, follow 
these steps: 

• Choose References from the Tools 
menu to open the References dialog box 
(see Figure 1). 

• From the Available References list, 
select the object libraries containing the 
objects for which you want to use early 



binding. For example, select the Microsoft 
PowerPoint 8.0 Object Library to refer- 
ence the class PowerPoint.Application, 
and select the Microsoft Binder 8.0 Ob- 
ject Library to reference the class Binder. 

Use this early-binding syntax for the 
CreateObject function: 

Dim objVari abl e As Class 
Set objVariable - CreateObject ( _ 
"ApplicationName.ObjectType ") 



Table 1 shows the application names 
and object types for ActiveX servers found 
in Microsoft Office. Although Word, 
PowerPoint, Access, Binder, and Outlook 
expose only one class of objects to Auto- 
mation (generally, the Application object), 
Excel exposes three — Excel.Application, 
Excel.Sheet, and Excel. Chart. (For more 
information, see the section titled "Auto- 
mating Excel Sheet Objects.") 

Each of the Excel object classes be- 



That Obscure Object of Desire 



The essence of object-oriented pro- 
gramming is encapsulation — that is, 
the combination of two things, data 
and functions, to use that data. You 
could say that an object is the capsule 
with the data on the "inside," and the 
functions that control access to that 
data serve as the "outside" interface. 
Objects provide two important ben- 
efits: reusability and data protection. 

To understand how objects work, 
you have to understand classes. 
Classes are to objects as data types are 
to variables. For example, in VBA for 
Access, VBA for Excel, or Visual Basic, 
you might write one of these lines of 
code: 

Dim intCounter as Integer 
or 

Dim DB as Database 

In the first line of code, the variable 
intCounter is of type Integer, while in the 
second, DB is an object of the Database 
class. 

To understand how data types and 
classes relate, consider the next ex- 
ample. Most programming languages 
let you create new data types by com- 
bining existing ones. For example, in 
VBA for Access, VBA for Excel, and 
Visual Basic, you can define a data 
type for a date: 

Type Datelnfo 

Month As String 

Day As Integer 

Year As Integer 
End Type 

After you define this data type, you 
can declare variables of the type 
Datelnfo, which is great — unless you 
decide to change the type definition. 
Let's say you decided to store months 
as integers rather than as strings. This 
would be easy to do in the type defini- 



tion itself: you would simply replace the 
line Month As String with Month As 
Integer. Unfortunately, you then would 
have to change every line of code that 
referred to the month component of 
Datelnf o-type variables to accommodate 
integers rather than strings. If you used 
this type widely, you could be in for a bit 
of work. 

On one level, you can think of classes 
as the solution to this problem. Classes 
contain data members (just like user- 
defined types) as well as a set of func- 
tions that handle the data. The data (and 
often some of the functions) is private, 
so you can't access it directly from out- 
side the class. 

The remaining functions are public. 
Any code outside of the class has to use 
public functions to access the data. The 
public members of a class form its inter- 
face. The data and private functions are 
its implementation. 

Continuing the comparison of data 
types and classes, suppose you had a 
Datelnfo class whose data members were 
the same as the user-defined type shown 
on the previous page. Suppose, too, that 
this class had a public function named 
GetMonth, which returned the Month 
component as a string. If you later de- 
cided to store months as integers, you 
would rewrite the GetMonth function so 
it manipulated the integer data inter- 
nally and still returned a string. You 
wouldn't have to change any code that 
used the Datelnfo class. 

This is how a class provides reusabil- 
ity in object-oriented applications. It's 
like subcontracting. When you hire an- 
other company to make widgets, you 
focus on the quality of the widgets, the 
timeliness of delivery, and the price — 
not on the manufacturing process. In 
fact, the subcontractor can change the 
manufacturing process as long as the 
quality, delivery, and price don't suffer. 

A class is a data subcontractor. The 
code that uses it doesn't care how the 
class handles the data internally, as Ion 



as it returns the data in the right form. 
You can change the implementation 
of the class all you want, and as long as 
the interface doesn't change — in other 
words, as long as the public functions 
take the same types of arguments and 
return the same types of data — you 
don't have to change a single line of 
code outside the class. 

To get a feeling for how important 
reusability can be, count the number of 
Word documents on your PC. No matter 
what's in the document, it uses the same 
code — that of the Word document class. 
Similarly, every Excel spreadsheet uses 
the code for the spreadsheet class. As a 
matter of fact, every window in Win- 
dows 95 uses the code for the Window 
class — in other words, every window is 
an instance of the Window class. 

In addition to reusability, classes 
provide data protection . Here's an anal- 
ogy that shows how data protection 
works. You could say that jewelry stores 
are more object-oriented than grocery 
stores. In grocery stores, the goods are 
generally well organized, but occasion- 
ally you'll find a can of peas in the 
cookie section. This is because anyone 
in a grocery store can pick up something 
and put it somewhere else. 

In jewelry stores, on the other hand, 
everything is locked up. Salespeople 
personally hand you a ring or a watch 
to try on. These salespeople provide 
an interface that protects the jewelry 
while giving others access to it. 

Interfaces for computer objects work 
in the same way. For example, the user- 
defined type in the Datelnfo example is 
analogous to the grocery store. Because 
anyone can put anything (of the correct 
data type) into any of the data compo- 
nents, you can end up with a date like 
Hamburger 37, -973. When you use a 
Datelnfo class, however, you have to 
call the appropriate public functions to 
enter the month, day, and year, and 
these functions check to see whether 
the input makes sense. — C.S. 
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VBA5 

Sub WordExamplet ) 

'Declare the object variable at the module level , e.g. , 
'Dim mob j Word As Word . Appl icati on 

Dim strMsg As String 

Set mob j Word - CreateObject( "Word. Appl icati on") 

'Show the Word applicati on. 
mob jWord . Vi s i bl e - True 

' If the appl icati on window isn ' t maximized, maximize it. 
If mobj Word . Wi ndowState <> wdWi ndowStateMaxi mi ze Then 

mobjWord.WindowState-wdWindowStateMaximize 
End If 

'Use a message box to pause code execution. 
strMsg - "Click OK to close the Word object." 
MsgBox prompt:-strMsg, Buttonsr-vblnformation, _ 
Title:-"Getting Started" 



'Clo: 
rnoi 



VBA5 

Sub PPTexampleO 

'Declare the object variable at the module level . 
'e.g. , Dim mobj PPT as PowerPoint .Appl icati on 

Dim strMsg As String 

Set mob j PPT - CreateObject( "PowerPoint. Appl icati on") 

'Show the Word appl icati on. 

mobjPPT. Visible-True 
' If the application window isn't minimized, minimize it. 

If mobj PPT. Wi ndowState <> ppWindowMinimized Then 
mobj PPT. Wi ndowState - ppWi ndowMi nimi zed 

End If 

'Use a message box to pause code execution. 

strMsg - "Click OK to close the Power Poi nt object. " 
MsgBox prompt:-strMsg, Buttons :-vbInformati on , _ 
Title:-"Getting Started" 

'Close the object, 
mobj PPT. Quit 



se the object. 
'bjWord.Quit 



' CI ear the object vari abl e . 

Set mob j Word - Not hi ng 
End Sub 



Listing 2. Automate Word. Launching an instance of Word (or 
any other application ) through Automation is essentially the same 
as launching an instance of Excel. 



' Cl ear the object vari abl e. 

Set mobjPPT - Nothing 
End Sub 



Listing 3. Automate PowerPoint. When controlling an 
application through code, use that application 's syntax. For example, 
Word uses the instrinsic constant wdWindowStateMinimize to 
specify a window's minimized state, while PowerPoint uses 
pp WindowMinimized. 



haves somewhat differently, and each is 
suited to particular purposes. Use the 
Excel. Application class when you want to 
present data in Excel and leave users 
there. If you set the Excel application 
object's property to Visible, you can exit 
the application that created the Excel 
object, such as Access, without exiting 
Excel. When you use Excel's other two 
classes, the object persists only as long as 
the creating application remains open. 
Use the Excel.Sheet class when you want 
to calculate data in Excel behind the 
scenes or populate a sheet with data for 
later use. Even if you make this object 
visible, it closes when you exit the appli- 
cation that created it. Use the Excel. Chart 
class when you want to create a chart for 
later use. Even if you make this object 
visible, it closes when you exit the appli- 
cation that created it. 

AUTOMATING EXCEL SHEET OBJECTS 

These examples show key techniques for 
automating Excel — that is, writing VBA 
code to control Excel. Each technique 
offers advantages and disadvantages, so 
choose from among them depending on 
the needs of your particular business ap- 
plication. (For information on structural 
and design issues for integrated applica- 
tions, see the sidebar "Who's In Control?") 
You can run these code samples from 
Word, PowerPoint, or Access. Remember 
to load Excel's object library using the 
References dialog box. 

One method of launching an Excel appli- 



cation object is to declare an object vari- 
able at the procedure level. Because the 
application object in this example is de- 
clared at the procedure level, it closes auto- 
matically at the end of the procedure, so 
you don't need to close the object explicitly 
in code. Because the application object's 
Visible property is not set to True, this 
object remains completely invisible, al- 



'Create XL object. 

Set objXL - CreateObjecU _ 
"Excel .Application") 

' Use a message box to pause code 
' execution so that you can check that 
' Excel , whi ch is invi si bl e, is i ndeed 
' running. 

strMsg - "Press Ctrl -Alt-Del to" & _ 



Copy and paste code from any 
programmable app inta an 
Automation controller. 



though it does appear in the Close Program 
dialog box when you press Ctrl-Alt-Del. 

Unless you're using Automation to 
deliver data to users in Excel — for ex- 
ample, by generating a report in Excel — 
leave the Excel object hidden (its default 
state) and make sure the Excel object is 
closed when you're done with it. Remem- 
ber that hidden objects perform faster 
than visible objects: 

Sub XLone( ) 

Dim strMsg As String 

' Decl are object vari abl e. 

Dim ob j XL As Excel .Appl i cati on 



"check that Excel , " 
MsgBox prompt:-strMsg, Buttons: _ 
— vblnf ormati on , _ 
Title:-"Getting Started" 
End Sub 

Another method of launching an Excel 
application object is to declare an object 
variable at the module level. Because the 
object variable doesn't lose scope at the 
procedure's end, the object remains open. 
The scope of a variable is the part of your 
code for which the variable is recognized 
and valid. Because the application object's 
Visible property is set to True, this object 
also remains visible. 
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In this example, if the application object's 
Visible property weren't set to True, this 
object would still remain open, though in- 
visible. Be sure that you are not leaving 
invisible objects open in the user's system. 



SubXLtwoO 



w 



'Declaretheobjectvariableatthe 
'module level to prevent the Excel 
' object f rom cl osing automati cal ly 
'at the end of the procedure, e.g. , 
' Dim mobjXL as Excel .Appl i cation 

'Create the Excel object. 



rite code for the ActiveX server 
in the controller just as you would 
write it in the server. 



Set mobjXL - CreateObject _ 
("Excel .Application") 

'View the Excel object. 

mobjXL. Vi sibl e - True 
End Sub 

If you use an object variable declared at 
the module level to launch an Excel applica- 
tion, use the Quit method to close the ob- 
ject and then clear the variable by settingits 
value equal to Nothing (see Listing 1). 

AUTOMATING WORD AND POWERPOINT 

You can also create a Word application 
object by declaring it at the module level 



■ ■ ■ 



VBA5 

Sub AccessExample( ) 

Dim objAccess As Access. Application 
Dim strMsg As String 

'Check that this is the path on YOUR PC for 
' Northwind.mdb, which ships with Access . 

Const PATH - "C:\Program Fi 1 es\Mi crosof t OfficeV 
"Office\Samples\Northwind.mdb" 



'Create an instance ofthe Access application object. 
Set objAccess - CreateObject ("Access .Appl 1 cation") 



'OpenthesampleNorthwinddatabasethatshipswith 
'Access. 

objAccess .OpenCurrentDatabase PATH 

'Open the Products table. 

objAccess . DoCmd . OpenTabl e "Products" 

'Leave users in Access. 

objAccess . Vi si bl e - True 
End Sub 



Listing 4. Automate Access. If you declare an object variable for Access at the module level, be sure to quit the instance of the 
application (objAccess. Quit), then set the object variable equal to Nothing (Set objAccess = Nothing). Otherwise, you might have trouble 
closing that instance of Access. 

: 
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VBA5 

SubMakeXLObjectO 

'Declare the object variable at the module level . e.g. , 
'Dim mobjXLSheet as Object 

Dim dbSolution As Database 
Dim tdf Customers As Tabl eDef 
Dim rstCustomers As Recordset 
Dim intRow As Integer 
Dim i ntCol umn As Integer 
Dim strSavedReport As String 
Dim strMsg As Stri ng 

'Set Access objects . 

Set dbSolution-DBEngine(OXO) 

Set tdf Customers - dbSol ution .Tabl eDef s( "Customers") 

Set rstCustomers -_ 

dbSol ution .OpenRecordsett "Customers") 

'Set the full path and name for the 
'saved Excel object (i.e., report) . 

strSavedReport = "c: \0ff iceSol uti onsRpt .xl s" 

'Create an Excel .Sheet object. 

Set mobjXLSheet - CreateObject ("Excel .Sheet") 

'Displaythe hourglass. 
DoCmd. Hourglass True 

Suppress prompts and al ert messages , e.g . , 
whether to overwrite c:\OfficeSolutionsRpt.xls 
mobjXLSheet .Appl i cati on . Di spl ayAl erts - Fal se 

'Add col umn headings from thetable. 
intRow - 1 

For i ntCol umn - 1 To tdf Customers . Fi el ds . Count 



mobjXLSheet .Appl i cati on . Cel 1 s ( i ntRow , _ 
i ntCol umn) . Val ue = _ 
tdfCustomers. Fields(intCol umn - D.Name 
Next intColumn 

' Sel ect thefirst record. 
intRow = 2 

rstCustomers .MoveFi rst 
Do Until rstCustomers . EOF 

For intCol umn - 1 To rstCustomers . Fields .Count 
mobjXLSheet.Application.Cel ls( intRow, _ 
intCol umn ) .Val ue 

rstCustomers . Fields(intCol umn - 1). Value 

Next intCol umn 

'Sel ect other records and i ncrement the row counter. 
rstCustomers. MoveNext 
i ntRow - i ntRow + 1 
Loop 

'Find the best fit for the Excel columns and save the 

'sheet. 

mobjXLSheet .Appl i cati on. Cel 1 s(l , _ 

1 ) . CurrentRegi on . Enti reCol umn . AutoFi t 
mobjXLSheet. SaveAs strSavedReport 

'Leave users in the report, 
mob jXLSheet. Appl i cat ion. Vi sibl e - True 

'Turn off the hourglass. 
DoCmd. Hourglass False 

'Turn on prompts and ale rt messages. 

mobjXLSheet. Appl i cati on. Di spl ayAl erts - True 
End Sub 



Listing 5. Automate the Excel.Sheet Class. This code, which runs from Northwind.mdb, uses Automation to write the data stored 
in the Customers table to an Excel worksheet. 
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(see Listing 2) . Like the previous example, 
it launches the object, uses the Quit func- 
tion to close the object, then clears the 
object variable. Before closing the Word 
application object, however, it uses the 
object's WindowState property to deter- 
mine whether it's maximized, and to maxi- 
mize it if it's not. You can run this example 
from Excel, PowerPoint, or Access. Re- 
member to load Word's object library 
using the References dialog box. 

The code that manages the Win- 
dowState property through Automation 
is identical to the code that manages the 
WindowState in a Word-based procedure, 
except the object variable — in this case, 
objWord — replaces the Application ob- 
ject. For example, in a Word-based proce- 
dure, this code maximizes the applica- 
tion window if it isn't already: 

If Appl i cati on . Wi ndowState <> _ 
WdWindowStateMaximize Then 
Appl ication. WindowState 
WdWindowStateMaximize 

End If 

The next code example creates a 
PowerPoint application object by declaring 
it at the module level (see Listing 3). Like the 
previous example, it uses the object's 
WindowState property. In this case, how- 
ever, the code determines whether the ob- 
ject is minimized and then minimizes it if it's 
not. Notice that the code that handles 
PowerPoint's WindowState is nearly identi- 
cal to the code that handles Word's 
WindowState — testimony to the similarity 
of the object models that underlie the Office 
applications. The only difference between 
these two code snippets is the intrinsic 
constant used by each application's object 
library: ppWindowMinimized or ppWin- 
dowMaximized for PowerPoint, and 
wdWindowStateMinimize or wdWin- 
dowStateMaximize for Word. 

You can run this example from Excel, 
Word, or Access. Remember to load 
PowerPoint's object library using the Ref- 
erences dialog box. 

The next example demonstrates how 
to create an instance of the Access appli- 
cation object: it opens the sample 
Northwind database that ships with Ac- 
cess, and then opens the Products table 
(see Listing 4). You can run this example 
from Excel, Word, or PowerPoint. Remem- 
ber to load the Access object library us- 
ing the References dialog box. 

Notice that in this example, I don't use 
Data Access Objects (DAO) to open the 
database. Instead, I use the Access appli- 
cation object's methods and properties. 
Although DAO uses Automation to com- 
municate with the Jet database engine, 
don't confuse this data access technol- 
ogy with using the Access application as 



an ActiveX server. When using Access as 
an ActiveX server, you can't use DAO. 

Another Access procedure uses the 
Excel. Sheet class to create an instance of 
an Excel worksheet (see Listing 5). It then 
populates the worksheet with data from 
an Access database and saves the sheet 
for later use (see Figure 2). "Later use" 



can be by the Access application that 
created it, by some other application, or 
by the end users themselves. 

To use this code, add it to a module in 
Northwind.mdb, which ships with Access. 
This procedure saves the worksheet in the 
root directory (C:\) as a standard Excel 
workbook, OfficeSolutionsRpt.xls, which 



Who's In Control? 



An integrated application is usually organized on one of three main models: 

• The Application-Centric Model. In this model, one Microsoft Office 
application controls the others. Developers write all the code in the control- 
ling application, and users generally work in the controlling application. For 
example, an Excel-based application that imports data stored in Access and 
exports an analysis of that data to Word would use an application-centric 
model with Excel at the center. 

• The EXE Model. In this model, all component Office applications are 
controlled from a standalone EXE file, such as a business application built in 
Visual Basic. In addition to creating the EXE file, developers might write code 
in the component applications. Users can switch back and forth between the 
component applications and the EXE. For example, a VB-based application 
that manages data stored in Access and writes that data to Word reports 
would use an EXE model. 

• The To-Each-Its-Own Model. In this model, each Office application and 
EXE does its share of the processing. This model can increase performance 
because code always runs faster from within its native application than from 
a remote application through Automation. This model requires that develop- 
ers write code in the component applications as well as in the startup 
application. Users work in both the component and startup applications 
depending on the application process they're running. In general, users can't 
switch between component applications. When a particular automated 
process requires use of a component, the application switches itself. For 
example, a Word-based application that automates the process of importing 
and formatting Excel-named ranges would use this model. Users would 
launch the process from Word and then select the named ranges from a 
custom component based in Excel. 

Another issue that comes up when you design integrated applications is 
how much users should see of component applications. There are a few rules 
of thumb, which depend on the nature of the integrated business application 
you're developing. When you develop integrated applications that use a 
particular Office product to deliver data to users, you should generally leave 
users in that product. For example, if you build an Access application that 
generates a pivot table or a report in Excel, leave users in Excel. 

When you develop integrated applications that use only the functionality 
of a shrinkwrapped product, users should never see that product. For 
example, if you build an application in Access that uses Excel to perform a 
series of calculations and return a number, users don't need to, and 
shouldn't, see Excel. This model improves both the speed of applications and 
their integrity because it prevents users from interfering with the applica- 
tion's execution. 

Unless you're automating the process of building compound documents 
that require users to edit or update the source data, there's no reason to link 
or embed data from one application into another. 

When you develop integrated applications that move data from one 
application to another, try to do it in such a way that you don't have to launch 
another shrinkwrapped product. This provides the best performance. For 
example, don't copy data from Access to Excel or Word — instead, use Data 
Access Objects (DAO). Launching Office applications is one of the most time- 
consuming things you can do, so it's worthwhile to explore alternatives. — C.S. 
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contains a single sheet. When you run this 
code, however, notice that the title of the 
sheet in the window isn't Office- 
SolutionsRpt.xls, but rather Object. When 
you close Access, this object closes too. 
Excel Automation-related code is boldfaced, 
so it's easy to spot. 

When building integrated business ap- 
plications, it's good practice to check 
whether the Office products used are al- 
ready open on the desktop so you don't 
open additional instances unnecessarily. 
A simple way to do this is to use the 
GetObject function and trap error code 
429, which is generated whenever the ob- 
ject you're trying to get is not open. (A 
more sophisticated technique is to use a 
Win32API call to determine whether an 
application is already open.) 

Although the syntax for the GetObject 
function accommodates a file path as the 
first argument, when using it to avoid 
opening a second instance of a class, omit 
that argument. Note that relatively few 
applications support opening files 
through the GetObject function: 

Dim objVarName As Class 



VBA5 



Sub WordTrapExampl e( ) 
'Set error trap. 

On Error GoTo TrapErr 

'Declare variables. 

Dim ob j Word As Word . Appl i cation 
Dim strMsg As String 
Dim bl nNotOpen As Bool ean 

'Use GetObject to get an instance 
'of Word. 

Set objWord - GetObjectC , _ 
"Word. Application") 

TrapErrContinue: 

If bl nNotOpen - True Then 

Set objWord - CreateObject( _ 
"Word. Application") 
End If 

'Add a document. 

objWord . Documents . Add 

' Show the Word appl i cation. 
objWord .Vis i bl e - True 
Exit Sub 

TrapErr: 

Sel ect Case Err 
Case 429 

bl nNotOpen - True 
Case El se 
End Select 

Resume TrapErrContinue 
End Sub 



Listing 6. Conservation of Objects. You 

can use the GetObject function to use an 
open instance of an application rather than 
create another instance. 
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Figure 2. Populate with Data. The Access procedure, MakeXLObject, uses Automation 
to populate an instance of the Excel.Sheet class with data from Northwind.mdb, a sample 

database that ships with Access. 



Set objVarName - GetObject _ 

(. " Appl i cati onName.ObjectType ") 

You can use the GetObject function in 
conjunction with an error trap (see Listing 
6). Boldfaced code is particularly relevant. 

FROM ONE APPLICATION TO AUTOMATION 

You can copy and paste code from any 
programmable application into an Auto- 
mation controller. Then, with a few quick 
changes, you can make that code run in 
an Automation controller's code module. 
First, create an ActiveX object using 
CreateObject or GetObject. Use the ob- 
ject variable that references the object 
created in the previous step to prefix 
code from the programmable application. 
For example, you can generate this code, 
which creates a new document, using 
Word's macro recorder. Also, make the 
object visible: 

Sub MacroK ) 

' Macrol Macro 

' Macro recorded 12/08/97 

' by Christine Sol omon 

Documents. Add 
End Sub 

This code also creates a new Word 
document, but it does so from Excel, 
PowerPoint, Access, or another Automa- 
tion controller: 

SubMacPortO 



Dim objW As Word .Appl i cation 
Set objW - CreateObject _ 

("Word. Appl ication") 
ob j W . Documents . Add 
objW . Vi si bl e - True 
End Sub 

The final step in pasting code into an 
Automation controller is to rewrite in the 
controller's syntax any features found in 
the server that the controller doesn't sup- 
port. For example, neither Access 8 nor 
Visual Basic 4 supports VBA's WithEvents 
syntax or its optional Arguments syntax. 

Building on the principles of Automa- 
tion explained in this article, you should 
be able to integrate the Microsoft Office 97 
objects on your desktop today into the cus- 
tom business applications of tomorrow. M 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club" in the 
Table of Contents. 

Integrate Office Components with 

Automation 

Locator+ Codes 

Listings for the entire issue (Registered Level): 
GS198 

Listings for this article only (subscriber Pre- 
mier Level): CSGS198 
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Developing Applications with 



Excel 97 and VBA 



Together with VBA, 
Microsoft Excel is a 
great building block 
for custom 
applications. 



Visual Basic developers love com- 
ponents, and with good reason. 
Why reinvent wheels that you can 
already buy and bolt onto your 
applications? A large number of commer- 
cial VBX and OCX components — and now 
ActiveX controls — have been created to 
satisfy this desire. Many components come 
with VB as well. 

But many component lovers still haven't 
discovered the toolbox called Microsoft 
Excel. Excel provides a library of literally 
hundreds of components you can use to 
build robust solutions. Imagine needing only 
a few lines of code to incorporate sophisti- 
cated charting, analysis, calculation, and 
reporting into your application. You can 
leverage those few lines of your own code 
with the millions of lines already written 
and tested by Microsoft, and conveniently 
installed on the majority of PCs in the world. 

You need to make an investment to de- 
velop with Excel. First, you must understand 
Excel itself. The applications you write will 
typically incorporate worksheets, formulas, 
charts, pivot tables, and other Excel fea- 
tures. You want to write fewer lines of code 
and use more of Excel, so the more you 
understand the product, the better. Here I'll 
assume that you have Excel itself down pat. 



by Steve Harshbarger and Eric Wells 



Properties 


Caption 

ScreenUpdating 

CommandBars 

DisplayStolusBar 
DisplayFormulaBor 


The caption displayed in the Excel title bar. 

If set to True, Excel updates the screen display as macros execute. If False, the 

screen display does not update during execution. 

Returns a collection representing Excel's menus and toolbars. Can be used to 

customize and create new menus and toolbars. 

Used to show or hide the status bar. 

Used to show or hide the formula bar. 


Methods 


Calculate 
Quit 
Intersect 
Union 


Forces recalculation of all formulas in all worksheets in all open workbooks. 
Closes the Excel application. 

Returns a Range object representing the Intersection of two or more ranges. 
Returns a Range object representing the union of two or more ranges. 



Table 1 . Methods of the Application Object. You can employ these common properties 
and methods of the Excel Application object in your own Excel-based applications, saving a 
huge amount of coding, debugging, and maintenance. Each object has properties that control 
its appearance and behavior, and methods that direct the object to perform an action or task. 
Some objects also have events that notify you when something of interest has occurred. 



Second, you need to understand Excel's 
object model, which provides a program- 
matic representation of Excel's features. 
These features include a hierarchy of ob- 
jects with associated properties, methods, 
andevente. Controlling theseobjects through 
Automation enables you to customize, ex- 
tend, and control the Excel environment to 
create your custom application. 



Finally, you must understand the VBA 
development environment, where you can 
write code, build custom forms, and debug 
your application. The VBA environment 
has converged with the VB environment; 
now VBA gives you a nearly identical sub- 
set of what you find in VB. In addition, you 
can use VBA with Office products such as 
Word, Access, and PowerPoint. You can 
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Figure 1 . Excel's Object Heirarchy. Excel's four most common objects are Application, 
Workbook, Worksheet, and Range. The Workbook and Worksheet objects are contained in 
the Workbooks and Worksheets collections, respectively, forming a hierarchy of objects. 



transfer the skills you learn with Excel to 
these products as well. 

EXCEL OBJECT MODEL 101 

Learning Excel's object model provides a 
framework where you can place every- 
thing you learn about using Excel pro- 
grammatically. This object model contains 
more than 100 objects, representing ev- 
erything from cells and charts to work- 
books and worksheets. Each object has 
properties that control its appearance and 
behavior, and methods that direct the ob- 
ject to perform an action or task. Some 
objects also have events that notify you 
when something of interest has occurred. 

For example, the Workbook object rep- 
resents a particular Excel file. This object 
has the properties Name and Path, which 
represent the file name and directory 
where the file is stored, and Author, which 
stores the name of the file's author. The 
Workbook object's methods include Save, 
which you call to save the file, and 
PrintPreview, which delivers a print pre- 
view of the workbook to the screen. Using 
objects in code looks like this: 

' / Set the author to Steve 
Workbookst "Bookl.xls ") .Author- "Steve" 
' / Print preview the workbook 
Workbookst "Bookl.xls ") .PrintPreview 

To reference a property or method of a 
particular object, simply use the dot op- 
erator (.) to append the name of the prop- 
erty or method to the object reference. 
You can reference objects in two different 
ways: you can reference the name of a 
single object directly, or you can reference 
an index in a collection of objects, as I've 
shown. A collection, in its simplest defini- 
tion, is a group of like objects. All Excel 
objects fall into two classes: singular ob- 
jects and objects in a collection. You refer- 
ence singular objects directly by name, 
and objects in a collection by an index in 
the collection. Collections enable you to 
arrange objects hierarchically. 

For example, the Workbooks collec- 
tion contains all Workbook objects. To 
reference a particular workbook, index it 
by name: 

Workbooks ( "Bookl .xls") 

You can also index it by number: 

Workbooks(l) 

THE FOUR MOST WANTED OBJECTS 

In Excel, four of the most commonly used 
objects are Application, Workbook, 
Worksheet, and Range. They form a hier- 
archy (see Figure 1). 

Application represents Excel itself; 
therefore it's the topmost object in the 
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Excel object hierarchy. Because Excel VBA 
applications run in Excel, think of the 
Application object as representing the 
environment in which VBA applications 
run. Any property settings or method 
calls made on the Application object af- 
fect all of Excel, and thus affect all VBA 
applications running in the Excel environ- 
ment (see Table 1). For example, you'd 
use Application to hide Excel's status bar 
and change its caption: 

Appl i cati on . Di spl ayStatusBar - Fal se 
Appl i cation . Capti on -_ 
"Custom Appl i cation" 



Workbook represents an Excel work- 
book file, and falls directly below the App- 
lication object in the Excel object hierar- 
chy. In terms of application development, 
think of the Workbook object as the de- 
livery mechanism, or container, of any 
VBA application you create in Excel. Any 
property setting or method call you per- 
form on the Workbook object affects your 



entire application (see Table 2). For ex- 
ample, to protect and save a workbook 
use this code: 

With Application. Workbooks(l) 

.Protect 

.Save 
End With 

Worksheet, contained in the Workbook 
object, serves several purposes in an Ex- 
cel VBA application (see Table 3). First 
and foremost, you'll use it as the basis for 
designing forms. The majority of custom 
forms in Excel are designed using the 



| Worksheet object. Worksheets also pro- 
. vide a powerful grid you can use to dis- 
I play and manipulate data. This grid con- 
| tains cells where you can embed formulas 

that perform calculations. The properties 
I and methods of the Worksheet object 
| manipulate the worksheet as a whole. For 

example, use this code to rename and 
I hide a worksheet: 
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Properties 


Name 


Name of the workbook. Name is a read-only property; to change the name of a workbook file, you 




must save the file with a new name, using the SaveAs method. 


Path 


The path to the workbook file. 


Saved 


If True, the workbook hasn't been changed since it was last saved; if False, the workbook has been 




changed since it was last saved. 


Methods 


Activate 


Activates a workbook and the first window associated with the workbook. 


Close 


Closes the workbook. 


Protect 


Protects the workbook so that no changes can be made to it. 


Save 


Saves the workbook. 


SaveAs 


Saves the workbook to a new name. 



Table 1. Workbook Object. These are some common properties and methods of the 
Excel Workbook object, which is nested within the Excel Application object. 



Properties 



Name The name of the worksheet. 

Visible If True, the worksheet is displayed. If False, the worksheet is hidden from view. 



Methods 



Activate Activates the specified worksheet. 

Delete Deletes the worksheet from the workbook. 

Protect Protects the worksheet so that no changes can be made to it. 



Table 3. Worksheet Object. Use these common properties and methods of the Excel 
Worksheet object, which is nested within the Excel Workbook object. 



Properties 



Name The name of a range. 

Value The value contained in a range. 

Formula The formula contained in a range as a string (including the equals sign). 

EntireRow Returns a new Range object representing the entire row(s) holding the range. 
EntireColumn Returns a new Range object representing the entire column(s) holding the range. 
Offset Returns a new Range object that is a given number of rows and columns distant 

from the upper-left corner of the range. 
Resize Returns a new Range object that is a given number of rows and columns in size 

starting at the upper-left corner of the range. 



Methods 



Copy Copies the values in the range either to another range or to the clipboard. 

Insert Inserts cells at the location of the range. 

Sort Sorts the range by up to three key columns. 



Table 4. Range Object. These are some common properties and methods you can set 
to manipulate Excel's Range object. 



T 



he Querytable Object enables 
an app to get live stock quotes 
from the Web. 



With Appl i cation . Workbooks(l) . _ 

Worksheets(l) 

.Name - "StockQuotes" 

. Vi si bl e - Fal se 
End With 

Range, contained in the Worksheet ob- 
ject, represents one or more cells on a 
worksheet. Use Range primarily to hold and 
display individual pieces of data: integers, 
strings, or formulas. The worksheet cells 
that a Range object represents actually have 
some intelligence. From a cell you can ac- 
cess more than 400 built-in Excel functions 
and you can call VBA functions. You can 
establish links to other cells on the same 
worksheet, on other worksheets, or in other 
workbooks. The flexibility and power of the 
Range object enables you to tap the power 
of Excel's built-in calculation engine and 
create more powerful data analysis applica- 
tions (see Table 4). 

Specifying a cell reference or name as an 
index identifies ranges, making a Range 
resemble an object in a collection. For ex- 
ample, use this code to set a cell's formula 
and display its value in a message box: 

RangeC'Al" ) . Formul a - "=SUM(B3 : B12 ) " 
Msgbox RangeC'Al") . Val ue 

MANAGING COMPONENTS WITH THE VC« 

To manage Excel's components in a project, 
you use the Visual Basic Editor (VBE). VBE 
provides the tools you need to write code, 
create forms, and debug applications. To 
bring up VBE, go to the Tools menu, select 
the Macro command, and choose Visual 
Basic Editor (or press Alt-Fll). The VBE 
window should appear (see Figure 2). The 
window contains the project, properties, 
and code editor windows. The project win- 
dow contains a hierarchical list of the ele- 
ments of your VBA project; the properties 
window lets you view and set properties of 
various objects in your project; and the 
code-editor window lets you enter and edit 
VBA code. You can also display other win- 
dows for debugging and browsing objects. 

To create a new module for your VBA 
code, choose the Module command from 
the Insert menu. A new, blank module 
should appear in the code-editor window. 
To enter a routine in a VBA module, begin 
typing at the top of the module. Remem- 
ber to start each VBA routine with the 
keyword Sub and end with the keywords 
End Sub. For example, try entering: 

Sub Fi rstRoutine( ) 

Wor ksheets(l). Range ("A1:F20") _ 
.Value e 1 

Worksheets(l) .Select 

MsgBox "Hello World" 
End Sub 

You can execute a routine by position- 
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ing the insertion point anywhere in the 
body of the routine, and choosing the Run 
Sub/UserForm command from the Run 
menu (or press F5). 

BUILD AN APPLICATION 

Now that you know the basics, you can 
concentrate on creating the elements of 
your application. To create custom dia- 
log boxes, which Microsoft has now 
dubbed UserForms, choose the Insert 
UserForm command (see Figure 3). You 
should notice four things: 

• The UserForm itself appears in its own 
window. 

• A toolbox appears, containing the con- 
trols you can place on a UserForm. 



w 



ith minimal coding, you 
can incorporate charting, 
analysis, calculation, and 
reporting into your apps. 



• The properties window shows proper- 
ties of the UserForm. 

• The UserForm is listed in the project 



j Microsoft Visual Basic - 5tockWatcher.xls - [mStocks (Code)] 



Edit View Insert Format Debug Run Tools Window Help 
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Sub NewStockO 

If Range ("StockSyiribols") .Rows. Count >= 

HsgBox "This model does riot support 

Exit Sub 
End If 
f rmNeu. Shou 

If frmNew.Tag - vbOK Then 

Application. ScreenUpdating = False 

AddToStockTable 

AddToPriceTable 

RebuildChart 
End If 

Unload frmNew 

Application. ScreenUpdating = True 
End Sub 



Figure 2. Writing VBA Code. You work within the Visual Basic Editor (VBE) to write and 
debug VBA code. The editor provides a host of labor savers, including automatic syntax 
checking and statement completion. 




Figure 3. Creating UserForms. You can implement custom dialog boxes for Excel applica- 
tions using UserForms, which can contain any number of standard and custom controls. 



window. 

To place controls on the UserForm, click 
on the desired button on the toolbox, then 
click and drag on the UserForm to create the 
control. Once you've placed the controls, 
you can change their properties by selecting 
them and using the properties window. To 
test the UserForm, choose the Run Sub/ 
UserForm command from the Run menu. To 
display a UserForm from a VBA routine, call 
the Show method of the UserForm. 

You can also place controls — such as 
buttons, list boxes, and option buttons — 
directly onto worksheets, using the Control 
Toolbox toolbar. To display this toolbar, 
select Excel's View Toolbars menu and se- 
lect Control Toolbox. Place controls on a 
worksheet just as you would place them on 
a UserForm, and set their properties to suit 
your needs. To set control properties with- 
out writing code, use the properties win- 
dow. To display the properties window for 
a control, click on the Properties button on 
the Control Toolbox toolbar (see Figure 4). 

Once you've set key properties for the 
control, you must write code to respond to 
its events. You should expect controls to 
have many events that react to various user 
actions and system events. For example, a 
command button has events that execute 
not only when the mouse is clicked, but also 
when the button gets and loses the input 
focus; when the mouse is pushed down, 
moved, and released; and when a drag/ 
drop operation is performed on the button. 

To view the control's event procedures, 
make sure it is selected, then click on the 
View Code button on the Control Toolbox 
toolbar. This button will take you to the 
VBE and open a code module containing 
predefined routines — called event proce- 
dures — that respond to the control's 
events. If you look at the contents of the 
code-editor window's procedure selector, 
you'll see a list of the available event pro- 
cedures for your command button con- 
trol. 

THE STOCKWATCHER APPLICATION 

Now put your new knowledge to use in a 
real application: StockWatcher. I wrote this 
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personal stock portfolio manager entirely 
in Excel and VBA. You can use the manager 
to record stock purchases, get live quotes 
from the Internet, view charts of price 
histories (see Figure 5), and calculate indi- 
vidual stock and portfolio returns (see Fig- 
ure 6). Before plowing into the source code, 
spend some time exploring and using 
StockWatcher. Note that its "Edit Applica- 
tion" toolbar button opens the Excel por- 



tion of the application by showing hidden 
sheets and ranges, and unprotecting sheets, 
among other things. Once you've become 
familiar with Excel development, you can 
build this type of application in days, be- 
cause you implement three quarters of it 
using Excel features — formulas, charts, and 
formatting. The remaining quarter, your 
VBA code, ties everything together. 

Most Excel applications initialize the 




Figure 4. On-Sheet Controls. You can place controls directly onto Excel worksheets to 
easily add functionality and commands to an application. 



environment in some way when they start 
up. If you want your app to do this, you 
might have to build custom menus and 
toolbars, hide certain Excel user interface 
elements, and protect the workbook or its 
parts. I created a routine, SetEnvironment, 
that performs these tasks (see Listing 1). 
When the routine protects worksheets, it 
uses a special parameter of the Protect 
method: UserlnterfaceOnly. This param- 
eter lets VBA code continue to manipulate 
the sheet, even though from the user's 
point of view it's locked away: 

Worksheets ("Portfol io") . Protect _ 
UserlnterfaceOnly :-True 

The routine CreateCommandBar cre- 
ates a custom toolbar for the application 
(see Listing 2). This routine makes exten- 
sive use of the CommandBar object to do 
its work. With this object, you can change 
built-in menus and toolbars and create 
new ones from scratch. 

To call these routines, use an event of 
the Workbook object, Workbook_Open. 
This event calls them each time the work- 
book is opened, ensuring that the applica- 
tion initializes correctly each time: 

Private Sub Workbook_Open( ) 

CreateCommandBar 

SetEnvi ronment 
End Sub 

You'll also find the routines RestoreEnvi- 
ronment and DeleteCommandBar, which 
restore Excel to its original state in the 
Workbook_BeforeClose event. You'll help 



VBA5 

Sub SetEnvi ronmentt ) 

Appl i cation . ScreenUpdati ng - False 

Wi th Appl i cati on . CommandBars ( COMMAND_BAR) 

.Control s( "Ed it Appl i cati on" ) . Vi si bl e -True 
.Control sC'Run Appl i cati on") . Vi sible- Fal se 
End With 

With WorksheetsC'Portfol io") 

. Protect useri nterf aceonly :-True 

. Range ("Stocks Insert Row" ) . Enti reRow. Hidden - True 

. Ranget "Stocks Fi rstRow") .Enti reRow. Hi dden -True 

.Activate 

Act! veWi ndow.Di splay Headings - Fal se 
End With 

With WorksheetsC'Prices") 

.Protect userinterfaceonly :-True 
. Range ("PriceSymbol s") . Enti reRow. Hidden - True 
. RangeC'Pri cesInsertCol ") . Enti reCol umn .Hidden - True 
. RangeC'Pri cesFi rstCol ") . Enti reCol umn . Hidden - True 
.Activate 

ActiveWindow.DisplayHeadings - False 
End With 

Charts ("Chart") .Protect useri nterf aceonly :-True 
Worksheets ("System") . Visible -xl Sheet Hidden 
Worksheets ( "Quotes" ) . Vi si bl e - xl SheetHi dden 
ThisWorkbook.Windows(l) .Displ ayWorkbookTabs - Fal se 
ShowPortfolio 
End Sub 



Sub RestoreEnvi ronmentt ) 

Appl i cat ion. ScreenUpdati ng - Fal se 
On Error Resume Next 

With Appl i cati on. CommandBars (COMMAND_BAR) 

. Controls ("Edit Appl i cati on") .Visible - False 
.Control s( "Run Appl i cati on" ) . Vi sibl e - True 

End With 

With Worksheets ( "Portfol io") 

. Unprotect 

. Range ("Stocks Insert Row" ) . Enti reRow. Hi dden - Fal se 
. Range ("StocksFi rstRow") . Enti reRow. Hi dden - Fal se 

.Activate 

Acti veWindow. Displ ay Headings - True 

End With 

With WorksheetsC'Prices") 

.Unprotect 

. Ranget "Pri ceSymbol s") . Enti reRow. Hi dden - Fal se 

. Range ("Pri cesInsertCol ") . Enti reCol umn. Hi dden - Fal se 

. RangeC'Pri cesFi rstCol ") . Enti reCol umn . Hi dden - Fal se 

.Activate 

Acti veWindow. Displ ayHeadings - True 

End With 

ChartsC'Chart") .Unprotect 
Worksheets ( "System" ).Vi si ble-xlSheetVi sible 
Worksheets ( "Quotes" ) . Vi si bl e - xl SheetVi sible 
ThisWorkbook.Windows(l) .Displ ayWorkbookTabs - True 

ShowPortfolio 
End Sub 



Listing 1 . Get Ready. Calls from the Workbook_Open event initialize the Excel environment for the application. Sheets, rows, columns, 
and workbook tabs are hidden, while sheets are protected as well. 
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keep the peace among your users if you always "put Excel back the 
way you found it," because people use it as a standalone applica- 
tion. Typical "put back" actions include restoring default menus 
and toolbars, and redisplaying the formula and status bars. 

PLUGGING IN EXCEL ROUTINES 

To record the stock purchases, I use a custom dialog, or 
UserForm, to gather information about a stock. The application 
performs some validation; adds a new row to the Portfolio 
worksheet, recording the stock's name and symbol; and adds a 
column to the Price worksheet for storing the stock's price 
history. Finally, StockWatcher rebuilds the chart to include the 
new stock: 

Sub NewStock( ) 
f rmNew.Show 

If frmNew.Tag - vbOK Then 

Appl i cation .ScreenUpdating - Fal se 

AddToStockTabl e 

AddToPriceTable 

RebuildChart 



l i] View Insert Form* Xools Surt 

g* U #QfF; 




Figure 5. Price History Chart. The StockWatcher application 

charts the history of prices for each stock in your portfolio. Building 
the chart in Excel puts all of Excels advanced formatting features 
at your disposal. 




Figure 6. Stock Performance Table. You can use the sample 

application, Stock-Watcher, to track portfolio performance as 
well as to learn how to code with VBA and Excel. All the 
calculations and data display use Excel worksheet functions and 
formatting. VBA code handles displaying dialogs, adding stocks, 
deleting stocks, and retrieving quotes from the Internet. 



T 



he Excel object model 
contains more than 
1 00 objects. 



VBA5 

Sub CreateCommandBarC ) 
DeleteCommandBar 

With Appl icati on.CommandBars .Add _ 
(C0MMAND_BAR, _ 
msoBarFloating, False, True) 
. Visibl e - True 

. Protect i on -msoBarNoChangeVisible+_ 

msoBarNoCustomize 
With .Controls 

With .Add(msoControlButton) 
. Capti on - "Portf ol i o" 
.Style- msoButton IconAndCapt ion 
.Faceld- 176 

.OnAction - "ShowPortf ol i o" 
End With 

With .Add(msoControlButton) 

.Capti on - "Chart" 

. Sty 1 e - msoButton I conAndCapti on 

.Faceld -436 

. OnActi on - "ShowChart" 
End With 

With .Add(msoControlButton) 

.Caption - "Prices" 

. Styl e - msoButton I conAndCapti on 

.FaceId-457 

.OnAction - "ShowPrices" 
End With 

With .Add(msoControlButton) 

.BeginGroup - True 

.Caption - "Get Quotes" 

. Styl e - msoButton I conAndCapti on 

. Faceld - 134 

.OnAction - "GetQuotes" 
End With 

With .AddtmsoControl Button) 
. Begi nGroup - True 
. Caption - "Edit Appl icati on" 
.Style -msoButtonCapti on 
.OnAction - "RestoreEnvi ronment" 

End With 

With .Add(msoControlButton) 
. Begi nGroup - True 
.Capti on - "Run Appl i cation" 
.Styl e - msoButtonCapti on 
.OnActi on - "SetEnvi ronment" 
End With 
End With 
End With 
End Sub 

Sub DeleteCommandBart ) 
On Error Resume Next 

Appl i cati on . CommandBa rs ( C0MMAND_BAR) . Del ete 

End Sub 




Listing 2. Custom CommandBars. You can easily create a 
custom StockWatcher toolbar. The toolbar has buttons that let the 
user navigate between sheets and get the latest quotes from the 
Internet. The CommandBar object represents built-in and custom 
toolbars and menus in Excel. 
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End If 

Unload frmNew 

Appl i cati on . ScreenUpdati ng = True 
End Sub 

You'll find an interesting technique within the dialog's vali- 



VBA5 

SubAddToStockTableO 

Dim rnglnsertRow As Range 
Dim rngNewRow As Range 

Set rnglnsertRow- RangeCStocksInsertRow") 
With rnglnsertRow 

. Enti reRow. Hidden - False 

.Copy 

.Insert xl ShiftDown 
Set rngNewRow- .Offset(-l) 
End With 

With Application 



dation code (look in the OK button's Click event): it verifies that 
the stock being entered doesn't already exist. Rather than 
writing code to loop through the list of stocks stored in the 
worksheet and comparing each stock to the value entered, I 
used Match — a built-in Excel function — to do the heavy lifting. 
You can call Match and most other worksheet functions from 



.CutCopyMode - Fal se 
. Intersect; rngNewRow, Range( "StockSymbol s" ) ) . Formul a _ 

- frmNew. txtSymbol 

. Intersect ( rngNewRow , Ranget "StockNames" ) ) . Formul a _ 

- frmNew. txtName 

. Intersect ( rngNewRow, Range! "StockBases" ) ) . Formula. 

-CDbl (frmNew. txtCost) 
. IntersectCrngNewRow, RangeC'StockShares") ) . Formula _ 
- CDbl (frmNew. txtSha res) 
End With 

rnglnsertRow. Enti reRow. Hidden - True 

End Sub 



Listing 3. Buying Stock. You'll need to add new entries into the stock table on the Portfolio sheet. After inserting a row, the code inserts 
values from the custom dialog into appropriate cells. Other cells contain formulas that perform return calculations for the portfolio. 



VBA5 

Sub RebuildChartt ) 

Dim rngChartData As Range 

Dim rngDates As Range 

Dim rngPrices As Range 

Set rngPrices - Range ("Prices ") 

If rngPrices.Col umns .Count>2Then 

Set rngPrices- rngPrices. Offset(0, 1) .Resize(, 



rngPrices. Columns. Count - 2) 

Set rngDates - RangeCPriceDates") 
Set rngChartData - Appl i cat ion. Union (rngDates , 
rngPrices) 

Charts ( "Chart" ) .ChartWizard rngChartData 
Charts ( "Chart") .Si zeWithWindow- True 

End If 
End Sub 



Listing 4. Chart Objects. Use the Chart object to rebuild the chart to reflect any additions or deletions of stock from the portfolio. The 
Chart object enables you to exercise significant control over chart format, presentation, and data. 



VBA5 

Sub GetQuotest ) 

Dim rngQuotes As Range 

Dim rngSymbol As Range 

Dim s Symbol ListAsString 

Dim nStockCount As Integer 

Dim asSymbol s ( ) As Stri ng 

Dim n As Integer 

Dim dtToday As Date 

On Error GoTo ErrorHandl er 

' Get list of symbols to quote 

sSymbol Li st - "" 

nStockCount - 

For Each rngSymbol In RangeC'StockSymbols") 
If rngSymbol .Value <> "" Then 

ReDim Preserve asSymbols(nStockCount) 
asSymbol s( nStockCount) - rngSymbol . Val ue 
s Symbol Li st - s Symbol Li st & rngSymbol . Val ue & " " 
nStockCount - nStockCount + 1 
End If 
Next rngSymbol 

If LentsSymbol List) > Then 

sSymbol List - Left( sSymbol Li st , Len(sSymbol Li st) - 1) 
d If 

Run Internet query to quote requested symbols 
With Worksheets ("Quotes") .QueryTablesd ) 

. Parameterst 1) . Set Pa ram xl Constant , sSymbol List 
.BackgroundQuery - Fal se 
.Refresh 

Set rngQuotes - _ 

. Destination. ResizetnStockCount, l).0ffset(4, 1) 
End With 

' Place quotes in price history table 
dtToday - Date 



AddPriceRow dtToday 
For n - To UBound ( asSymbol s ) 

UpdatePrice asSymbols(n) , dtToday, _ 
rngQuotes . Cel 1 s ( n + 1 ) . Val ue 

Next n 

MsgBox "Quotes have been retrieved.", vblnf ormati on 
RoutineExit: 

Exit Sub 
ErrorHandler: 

MsgBox Err. Description, vblnformation 

Resume RoutineExit 
End Sub 

Sub UpdatePricetrsSymbol As String, _ 

rdtDateAs Date, rvntPriceAs Variant) 
Dim vnt Date Index As Vari ant 
Dim vntSymbol Index As Variant 
Range ( "Symbol ToTest" ) . Formul a - rsSymbol 
vntSymbol Index - Range ("Symbol Index") .Value 
If Not IsNumeric(vntSymbol Index) Then 

MsgBox "Symbol '" & rsSymbol &_ 
"' does not exist.", vbExclamation 

Exi t Sub 
End If 

Range ( "DateToTest" ) . Formula - rdtDate 
vntDatelndex - Range ("Datelndex") . Val ue 
If Not IsNumeric(vntDatelndex) Then 

MsgBox "Date '" & rdtDate & _ 

"'does not exist.". vbExclamation 

Exit Sub 
End If 

RangeC'Prices") .OffsettvntDatelndex - 1, _ 

vntSymbol Index - 1 ) . Resi ze( 1 , 1) . Formul a - rvnt Price 

End Sub 



Listing 5. Quotes from the Web. Users will appreciate the ability to access the Web for the latest prices of each stock in the portfolio. 
This code uses Excel's Web Query feature and the QueryTable object to pull quotes directly into a worksheet and copy them to the 
appropriate location in the price history section of the workbook. 
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cation object: 

Appl ication.WorksheetFunction.Matcht _ 
sSymbol . RangeC'StockSymbol s") , 0) 

The AddToStockTable routine enters the new stock into the 
worksheet (see Listing 3). This code wields the Range object to 
determine where to insert a row and populate cells with values 
from the dialog. For example, after inserting the new row, the 
routine sets a Range object variable (rngNewRow) to point to the 
new row, then uses the Application object's Intersect method to 
intersect this range with columnar ranges representing the various 
fields. Doing so results in a new Range object pointing to the 
particular cell whose Formula property is used to set the data: 

Appl i cati on . Intersect ( rngNewRow, _ 
RangeC'StockSymbol s") ) . Formul a - _ 
frmNew.txtSytnbol 

The RebuildChart routine ensures that the chart contains 
the new stock. It uses the Chart object to carry out this task (see 
Listing 4). RebuildChart calls Chart's ChartWizard method to 
tell the chart which data to plot. Pass a Range object represent- 
ing the columns of stock data to this method, and set the 
SizeWithWindow property to True to make the chart take up the 
entire Excel window. 

WEB QUERIES AND EVENT TRICKS 

I also make use of Web Queries , a new feature in Excel 97. This feature 
lets you grab data from a Web site and insert it directly into a 
workbook. The QueryTable object represents this feature in Excel's 
object model. My application uses the QueryTable object to get live 
stock quotes from the Web and maintain a running history of them. 
Retrieved prices first go into a "scratch" worksheet (called Quotes), 
hidden from user view. To create the query on this sheet, go to the 
Data menu and select Get External Data. Then choose Run Web 
Query and select "Multiple Stock Quotes by PC Quote, Inc.iqy," a file 
that ships with Excel. 

Once you set up the query, you can execute it at will from code. 
Before executing it, however, you must send the current list of 
stocks to the query as a parameter. You also need to set the 
BackgroundQuery property to False, which makes the code wait 
for results before continuing: 

With WorksheetsC'CJuotes") . _ 
QueryTables(l) 

Parameters (1 ) .SetParam_ 

xl Constant, sSymbolList 
BackgroundQuery - Fal se 
Refresh 
End With 

After the query executes, GetQuote copies the quotes onto 
the Prices sheet (see Listing 5). 

You can use the Portfolio sheet's Delete button to delete stocks 
from the list. Note that as you scroll around the sheet, the button 
enables and disables itself, depending on whether you've selected 
a row with a stock in it. The button is responding to the 
SelectionChange event of the Worksheet object. This event fires 
each time the cell pointer moves. When this happens, use the 
Intersect method of the Application object to see if the current 
selection intersects the list of stocks. If it does, the button is 
enabled. If not, it is disabled (see Listing 6). 

If you tried to write StockWatcher in VB directly, it would 
perform at about the same level — but it would require three to four 
times the amount of code, even if you used custom controls for the 
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Private Sub Worksheet_SelectionChange(ByVal _ 
Target As Excel .Range) 
Dim rngDel ete As Range 
Dim rngStocks As Range 
Set rngStocks - RangeC'Stocks") 
If rngStocks. Rows .Count - 2 Then 

cmdDel ete. Enabled - Fal se 
Else 

Set rngStocks - rngStocks. Offset(l) . _ 

Resizet rngStocks. Rows. Count - 2) 

Set rngDel ete - Appl i cat ion. Inter sect ( rngStocks , 

Selection) 
If rngDelete Is Nothing Then 
cmdDel ete . Enabl ed - Fal se 
Else 

cmdDel ete. Enabled - True 
End If 
End If 
End Sub 



Listing 6. Excel Events. Excel provides a rich set of events for 
workbooks, worksheets, charts, and the Excel application itself. Here 
I trap the movement of the cellpointerto enable and disable a Delete 
button on the worksheet, in accordance with the user's selection. 
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BA gives you a 
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find in VB. 



charting portion of the application. And by delivering the data in 
Excel, you enable users to play with the data much more easily than 
if it were presented on a rigid VB screen. Users can add their own 
formulas and formatting, and sort and print the data, all using built- 
in Excel commands. Without Excel, you'd need to write each of 
these features from scratch. And users would find it less familiar 
than their usual spreadsheet. Excel with VBA offers you a winning 
combination for quickly developing useful applications. ■ 
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You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at hftp:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

Developing Applications with Excel 97 and VBA 
Locator* Codes 

Listings for the entire issue, plus SHGS198.ZIP, which includes the 
complete StockWatcher application (free Registered Level): GS1 98 
Listings for this article only, plus SHGS198.ZIP (subscriber Premier 
Level): SHGS198 
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How Do I Stop the Flashing? 



by Karl E. Peterson 



Q SCROLLBAR FLASHES 
I have a form with an HScroll control. The program 
works correctly, but the slider button on the scrollbar 
continually flashes between light gray and darker gray at about 
one-half to one-second intervals. Why is it flashing? And how do 
I stop it? 

AVB's intrinsic scrollbar controls can be quite useful, but 
sometimes surprise folks with what seems to be nonstand- 
ard behavior. You're seeing the scrollbar's way of indi- 
cating that it has input focus. The flashing says that the user can 
use the keyboard to manipulate the scrollbar's position (Value). 
Pressing the arrow keys when the scrollbar has focus triggers 
SmallChange increments, and the Page Up and Page Down keys 
trigger LargeChange movement. 

You can take one of two approaches to eliminate the un- 
wanted flashing. The simplest solution is to set the scrollbar's 
TabStop property to False. This step alone is effective in all but 
two circumstances. First, if the scrollbar is the only control on 
the form capable of receiving focus, it continues to flash. The 
second exception occurs when all other controls on the form let 
the user shift focus with arrow keys — as command buttons do— 
in addition to letting the user shift focus with the Tab key. The 
TabStop property doesn't intervene in this situation, and the 
slider flashes when focus is gained this way. The only way to 
avoid this scenario is to shift focus in code. For example, you can 
call the SetFocus method of a PictureBox that's been moved out 
of sight: 

Private Sub Form_l_oad( ) 

' Move picture box out of sight 

Pi cturel. Left - Pi cturel. Width * -2 
End Sub 

Private Sub HScrol 1 l_Got Focus ( ) 

' Shift focus to avoid flashing slider 

Pi cturel. SetFocus 
End Sub 

The disadvantage of taking either of these preventive mea- 
sures is that your users lose the ability to alter the scrollbar with 
the keyboard alone. You should decide whether that's an ac- 
ceptable design decision. 

QIS DATE CUTOFF ABITRARY? 
Something appears odd with the CDate and CVDate 
functions. CDate("12/31/29") returns 12/31/2029 as the 
result, but CDate("l/l/30") returns 1/1/30. This is the break 



point; anything earlier than 1/1/30 is assumed to be referring to 
the twenty-first century, and dates later than that fall into the 
twentieth century. Isn't this arbitrary? 

A Sure it's arbitrary. I suppose the most fitting response is, 
"What year would you have chosen?" A transition point 
was necessary to let us deal with two-digit years. The 
wary programmer — actually anyone who's opened a newspa- 
per in the last few years — knows that using only two digits to 
represent a year is evil. Although some might see it as a form of 
job security, most use unambiguous four-digit years to avoid 
this and other problems. 

That said, Microsoft could've done a better job of highlight- 
ing this arbitrary behavior. The only reference I could find was 
a correction to the help for the DateSerial function, which you 
can obtain by clicking on Specifics for this topic. Articles on the 
Microsoft Web site dealing with Year 2000 issues include 
"HOWTO: Prepare Visual Basic Applications for the Year 2000" 
(http://support.microsoft.eom/support/kb/articles/ql62/7/ 
18. asp) and "Year 2000 Issue - Frequently Asked Questions" 
(http://www.microsoft.com/cio/articles/year2000faq.htm). 

The KB article goes into detail about the historical develop- 
ment of date assumptions for two-digit years. The bottom line 
is that you should never rely on any assumption. VB3 consid- 
ers all two-digit years to be in the 1900s. Initially, VB4 assumed 
all two-digit years referred to the current century, and 16-bit 
VB4 continues to behave this way. 32-bit VB4 uses the assump- 
tions of the current OLE Automation library. If your 
OLEAUT32.dll is version 2. 10 or earlier, VB4/32 behaves just as 
VB4/16 does. But versions 2.20 and later of OLEAUT32.dll 
changed the rules to those you cite. 



Q 



SAVESETTING LIMITS NAMES 

Adding entries to the registry with VB's SaveSetting state- 
ment places them under HKE Y_ CURRENT_ USER \ 



Karl E. Peterson is a GIS analyst with a regional transportation 
planning agency and a contributor to various journals. Based in 
Vancouver, Washington, he's also an independent programming 
consultant specializing in ActiveX controls. Online, he's a Microsoft 
MVP and a section leader in The Development Exchange online 
forum (http://www. windx. com ). Find more of Karl 's samples and 
tips on the Web at http://www.mvps.org/vb. 

Ask the VB Pro provides you with free advice on programming 
obstacles, techniques, and ideas. Read more answers from our 
crack VB pros on the Web at http://www.inquiry.com/thevbpro. 
You can submit your questions, tips, or ideas on the site, or access 
a comprehensive database of previously answered questions. 
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Ask the VB Pra | 



SoftwareWB and VBA Program Settings\<Productname>. I would 
prefer to store my entries under a name such as "My Software 
Products" rather than "VB and VBA Program Settings" How can 
I change the name used by SaveSetting? 



A 



The short answer is that you can't alter this behavior. It's 
frustrating that Microsoft decided to hobble VB by 
restricting this useful functionality. Fortunately, you can 
achieve your goal by abandoning the comfort of native VB meth- 



VB4/32, VB5 



' Pri vate member vari abl es 
Private m_Company As String 
Private m_AppName As String 

' Private class constants 
Pri vate Const def Company As Stri ng - _ 
"VB and VBA Programs Settings" 

Private Sub CI ass_Initial ize( ) 

m_Company - defCompany 

m_AppName - App . ProductName 
End Sub 

Public Property Let CompanytByVal NewVal As String) 
If Len(NewVal ) Then 

m_Company - Trim( NewVal ) 
Else 

iruCompany - defCompany 
End If 
End Property 

Publ ic Property Get Company( ) As String 

Company - tn_Company 
End Property 

Publ ic Property Let AppName( ByVal NewVal As String) 
If LentNewVal ) Then 

m_AppName - Trim( NewVal ) 
Else 

m_AppName - App . ProductName 
End If 
End Property 

Publ ic Property Get AppName( ) As String 

AppName - m_AppName 
End Property 

Public Function DeleteSetting(ByVal Section As String, 
Optional ByVal Key As String - "") As Boolean 
Dim nRet As Long 
Dim hKey As Long 

If Len(Key) Then 
' Open key 

nRet - RegOpenKeyExt HKEY_CURRENT_USER, _ 

SubKey(Section), 0&. KEY_ALL_ACCESS , hKey) 
If nRet - ERROR_SUCCESS Then 

' Set appropriate value for default query 
If Key - "*" Then Key - vbNull String 
' Deletethe requested value 
nRet-RegDeleteValue(hKey, Key) 
End If 
Else 

' Open parent key 

nRet - RegOpenKeyEx(HKEY_CURRENT_USER, SubKey ( ) , 
0&. KEY_ALL_ACCESS, hKey) 

If nRet - ERROR_SUCCESS Then 

' Attempt to delete whole section 
nRet - RegDeleteKeythKey. Section) 

End If 
End If 

Del eteSetting- (nRet- ERROR_SUCCESS) 
End Functi on 

Public Function GetSetti ng( ByVal Section As String, _ 
ByVal Key As String. _ 



Optional ByVal Default As String-"") As String 

Dim nRet As Long 

Dim hKey As Long 

Dim nType As Long 

Dim nBytes As Long 

Dim Buffer As String 

' Assume failure and set return to Default 

GetSetting - Default 

' Open key 

nRet - RegOpenKeyEx(HKEY_CURRENT_USER, _ 
SubKey(Section). 0&, KEY_ALL_ACCESS, hKey) 

If nRet - ERROR_SUCCESS Then 

' Set appropriate value for default query 
If Key - "*" Then Key - vbNul 1 String 

' Determine how large the buffer needs to be 
nRet - RegQueryVal ueEx( hKey , Key, 0&, nType. _ 

ByVal Buffer. nBytes) 
If nRet - ERROR_SUCCESS Then 

' Build buffer and get data 

If nBytes > Then 

Buffer- Space(nBytes) 

nRet - RegQueryVal ueExt hKey . Key, 0&. nType, 

ByVal Buffer, Len(Buffer)) 
If nRet - ERROR_SUCCESS Then 

' Trim NULL and return successful query! 
GetSetting- Left(Buffer, nBytes - 1) 
End If 
End If 
End If 
End If 
End Function 

Public Function SaveSettingtByVal Section As String, _ 
ByVal Key As String, _ 
ByVal Setting As String) As Boolean 
Dim nRet As Long 
Dim hKey As Long 
Dim nResult As Long 

' Open (or create and open) key 

nRet - RegCreateKeyEx(HKEY_CURRENT_USER, _ 

SubKey(Section) , 0&, _ 

vbNullString. REG_0PTI0N_N0N_V0LATI LE, _ 

KEY_ALL_ACCESS , ByVal 0&. hKey. nResult) 
If nRet - ERROR_SUCCESS Then 

' Set appropriate value for default query 

If Key - "*" Then Key - vbNullString 

' Write new value to registry 

nRet-RegSetValueEx(hKey. Key. 0&, REG_SZ, _ 
ByVal Setting, Lent Setting) ) 

Call RegCloseKey(hKey) 
End If 

SaveSetting - (nRet - ERROR^SUCCESS) 

End Function 

Private Function SubKey(Optional ByVal Section As _ 
String - "") As String 
' Build SubKey from known values 
SubKey - "SoftwareV & m_Company & "\" & m_AppName 

If Len(Section) Then 

SubKey - SubKey & "\" & Section 

End If 
End Function 



Listing 1 . Replace Native VB Registry Functions. Shown here is a complete class, minus API declarations, for three functions that 
augment native functions with much needed capabilities. Using this CRegSettings class, you can avoid storing your settings under "VB 
and VBA Program Settings" and set default values for registry sections. 
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ods and calling the Windows API instead. Several registry func- 
tions are available, but they can be confusing, depending on how 
often you work with the API. 

The cleanest solution is to rewrite VB's SaveSetting, GetSetting, 
and DeleteSetting functions. I've done just that with a class called 
CRegSettings, which is available on the free, Registered Level of 
The Development Exchange (see the Code Online box at the end 
of the column for details). This class exactly replicates the native 
functions with two main enhancements. The most important, 
given your question, is the ability to specify a company name, for 
example, under which registry settings are stored and retrieved. 
In addition, the class offers the capability of reading and writing 
default values for registry section names. 

My replacement GetSetting function behaves exactly as ex- 
pected, returning the string value found in the requested key, or 
the supplied default value if the key is not found (see Listing 1). 
The SaveSetting and DeleteSetting functions work similarly to 
the native versions, except they return True or False indicating 
success or failure. In addition, all three functions operate on the 
default value for a registry section if the Key parameter is "*". 

To use CRegSettings, declare an instance of the class, and set 
the Company and AppName properties appropriately: 

Dim reg As CRegSettings 

Set reg - New CRegSettings 

reg. Company - "VBPJ Examples" 

reg. AppName - "Reg Repl acement Test" 

Setting the Company property is optional; it defaults to "VB 
and VBA Program Settings" if not specifically set (see Listing 1). 
Creating new sections and storing values within them is nearly 
identical to doing so with the native functions: 

reg. SaveSetting "NewSection", "NewKey", "123" 
Debug .Print reg . GetSetti ng ( "NewSecti on" , "NewKey" ) 
reg . Del eteSetti ng "NewSecti on" . "NewKey" 

Classes provide an excellent opportunity for beginners and 
experts alike to hide the complexity of the API. With this simple 
example, you wrap up some involved API calls behind familiar 
and easy-to-use syntax. In the process, you replace and en- 
hance three of the most potentially useful functions in the VB/ 
VBA engine. Use this class as an example of how to further 
enhance these capabilities. 

Q TRANSLATE WITHOUT RECOMPILING 
The VB help file says "Using LoadResString is useful 
for localizing a Visual Basic application because the 
resources that need to be translated are isolated in one re- 
source file and there is no need to access the source code or 
recompile the application." Please explain how to translate 
resources without accessing the source code or recompiling 
the application. 

A The phrase you quote is potentially misleading, but 
true. Consider two approaches. The most straightfor- 
ward is to include multiple versions of all string re- 
sources within a single RES file. To make this scheme work, you 
need a known offset for each different language. 

Suppose you need to support English, French, and Spanish 
in your application, with English as the default. To do this, 
you can assign sequential IDs, starting at 1001, to each string. 
Translate the strings to French and assign the same IDs, but 
start at 2001. Translate again to Spanish, and assign IDs 
starting at 3001. When your program starts up, determine 
which language to use, then assign a global variable an 
appropriate offset: 



If Lang - cEnglish Then 

LangOffset - 
Elself Lang - c French Then 

LangOffset - 1000 
El self Lang - cSpanish Then 

LangOffset - 2000 
End If 

Add this offset to the requested ID whenever you must 
retrieve strings from your RES file. For example, assign a local- 
ized string to the first menu caption: 

mnuMain(O) .Caption - LoadResString ( ID + LangOffset) 

Containing all your localized resources within a single RES 
file is simple, but brings drawbacks. It wastes space in your EXE 
because most of your users probably use only a single language. 
And you have to recompile the main executable every time you 
add a new language. 
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Another approach is to build multiple RES files, one for 
each language, and expose them from an ActiveX DLL. In this 
case, always assign the same ID to each equivalent string. To 
build the wrapper, start a new ActiveX DLL project and add a 
single Public class called CResStrings. This class can have a 
single public method, called LocalResString: 



Public Function Local ResStri ng( ByVal ID As Long) 

Local ResString - LoadResStri ng( ID) 
End Function 



As String 



Now add the appropriate RES file to the DLL project and 
compile. You must do this for each language you support, making 
sure you maintain Binary Compatibility with your first build using 
the Project Properties Component options tab. Using this ap- 
proach, you can modify translations and add supported lan- 
guages without redeploying the entire application. M 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

How Do I Stop the Flashing? 
Locator+ Codes 

Listings for the entire issue, plus APGS198.ZIP, which includes the 
CRegSettings class that lets you specify a company name for storing and 
retrieving settings (free Registered Level): GS198 
Listings for this article only, plus the file described above (subscriber 
Premier Level): APGS1 98 
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Launch Your App 

by Chris Barlow 



Make sure you use the latest 
version of your app when making 
changes to the code. 

You complete your first Visual Basic system and install it on the 
user's computer. It consists of a database and three different 
applications. You put shortcuts to all three applications on the 
user's desktop. The user double-clicks on the shortcuts and 
sees the database open and each application start up. The user 
is satisfied. You're all done, right? 

If you've been through a system startup, you know the answer 
to that question. You're not even close to "all done," and in some 
ways, this is the beginning. I guarantee the user will call and say 
one of the applications is not working right, or that he or she 
wants a "minor" change in one of the screens. When taking a fresh 
look at the applications, you'll find a little code you want to tweak 
or a feature you want to improve. 

Welcome to the world of system maintenance. Fortunately, 
Visual Basic makes it easy to implement the kind of changes 
users invariably want as they begin to live with a new applica- 
tion. You can change the menus, redraw the screens, and even 
add new fields to the database almost faster than users can ask 
you to. The nice thing is that most of these changes require only 
a simple compile of a new EXE — not an entire new setup kit. 

But installing the new version of your application so the user 
can launch it is not as easy as it sounds. Often, you don't visit the 
user's site to install the new version; instead, you connect to his 
or her computer through a modem, LAN, or the Internet. Can you 
connect directly to the user's disk to overwrite your old EXE, or 
can you see a shared server on the user's network? You can't have 
your applications reside on the server and point each user's 
desktop shortcuts to the server — suppose the user is running the 
application when you want to replace it? You'll get the error 
message saying the file is open and cannot be overwritten. 

At SunOpTech, we solved this problem by creating an applica- 
tion launcher. Whenever a user wants to run one of the applica- 
tions in the system, his or her request is funneled through the 
launcher first. The SunOpTech Launcher is not as rigid as a 
typical menu application. In most cases, the user doesn't realize 
it's being executed. Its job is to make sure the latest version of the 
application is running. 

All the desktop shortcuts point to the launcher instead of the 
application. When the user double-clicks on the shortcut to 
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launch an application, Launcher fires up. Launcher looks at the 
version information from the application's EXE file in the program 
folder. Then Launcher looks for the same EXE file in a predefined 
install folder on that computer (or server) and checks the version 
information of that file. If the EXE file in the install folder is newer, 
Launcher copies the newer version into the program folder. 
Finally, Launcher gives the command to launch the application, 
and Launcher terminates. 

The launcher makes program upgrades easy. When you 
compile a new version of the application, copy it to the install 
folder. The next time the user runs the application, Launcher 
copies your new version to the program folder and launches it. 



Figure 1 . Project Make Properties. This dialog lets you set the 
Command Line Arguments you need to test the launcher application 
in the Visual Basic design environment. Notice Launcher's version 
information and the Auto Increment check box to increment the 
App.Revision property every time the project is compiled. 



Chris Barlow is president of SunOpTech, a developer of document 
management, decision-support, and supply chain applications, in- 
cluding the ObjectBank, ObjectOrder, and ObjectJob systems. He 
holds two U. S. Patents related to software for decentralized distributed 
asynchronous object-oriented and scheduling systems. Chris, whoisa 
frequent speaker at VBITS, Tech* Ed, and DevDays and has been 
featured in two Microsoft videos, holds degrees from Harvard Business 
School and Dartmouth College. Reach Chris at Chris@VBExpert.com 
or through his Web server at www. VBExpert.com. 
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Because requests to run your applications are tunneled through 
the launcher, you can centralize functionality in Launcher. For 
example, you can use Launcher to log the user onto your system 
by requesting a user ID and password and verifying this informa- 
tion against a database. You can check a central message data- 
base for messages of interest to this user. You can "lock up" your 
applications so they won't start unless they receive a certain code 
on the command line from Launcher. That way, instead of letting 
the user run the application directly, you'd force the user to go 
through Launcher. 

CREATE A LAUNCHER 

To use the launcher, you must control the version of your 
application. Visual Basic makes it easy to identify your program 
by adding a version resource to the EXE file. You can modify the 
information about your application using the Options button on 
the Make Project window. I suggest setting the option to automati- 
cally increment the revision each time you compile the applica- 
tion. You can override the Minor and Major properties as you 
make substantial changes to your application. 

In one of my columns for this magazine's sister publication, 
Visual Basic Programmer's Journal, I wrote an ActiveX DLL that 
reads this version information, along with the file's date and time. 
Launcher uses this FileVer DLL to read the version resource 
information from the file in both the program and the install 
folders to determine which is more recent. You can download this 
DLL from the Registered Level of The Development Exchange (see 
the Code Online box at the end of this column for details). 

Start a new Standard EXE project in Visual Basic and right-click 
on the Project window to add a module. Click on the Properties 
menu item on the Project menu to name the project "Launcher." 
Set the Startup Object to Sub Main. Then click on the References 
menu item on the Project menu to add a reference to the FileVer 
DLL from last month's column. 

Visual Basic's Standard EXE project has a single form you can 
use as a splash screen to let the user know what's happening 
while you copy the upgraded EXE file. Rename the form 
"Splash. frm." I suggest designing a simple form with Label con- 
trols for Launcher's version and copyright, as well as a larger 
Label control to display the action that Launcher is performing. 

The Main subroutine executes when Launcher starts. First, 
show the Splash form to give the user some visible feedback. Get 
the setting for the install folder from the registry using the 
GetSetting statement, and store the setting in a public variable 
called InstallFolder. If this variable is null, as it will be the first time 
Launcher runs on a computer, use the InputBox function to 
request the install folder. If the user doesn't enter a folder or 
presses the Cancel button, Launcher will terminate; otherwise, 
the install folder setting is saved to the registry: 

Public Sub Mai n() 
Dim txt$ 
Splash. Show 
Splash. Refresh 

InstallFolder - Get Setting ("Launcher" , "Fol ders", _ 

"Instal 1 Folder" . "") 
If Lent Install Folder) -0 Then 

Ins ta 11 Folder - InputBox ("Please enter path to " & _ 

"Install Folder", "No Install Folder", App.Path) 
If Len( Instal 1 Folder) - Then End 
SaveSetting "Launcher", "Fol ders" , "Instal 1 Folder", _ 
Instal 1 Folder 

End If 

The application to be launched is passed on the command line 
with the full path to the application. You can test this in debug mode 
by setting the Command Line Arguments on the Make tab of the 



Project properties dialog (see Figure 1). Visual Basic makes com- 
mand-line arguments available through the Command property of 
the App object. If this property is null, the user hasn't specified a 
program to launch, and an appropriate error message is displayed: 

If Len( Command) - Then 

txt - "This program wi 11 launch the program " & _ 

"speci f ied on the command line." & vbCrLf 
txt - txt & "It will compare this program's " & _ 

"date and version against the same " & _ 

"program in " & vbCrLf 
txt - txt & InstallFolder & vbCrLf 
txt = txt & "and give you the option to replace " & _ 

"your program with this vers i on." & vbCrLf 
txt - txt & "Please enter path and EXE name on " & _ 

"command lineandre-runthisprogram." 
MsgBox txt 



V 



isual Basic makes it easy 
to identify your program 
by adding a version 
resource to the EXE file. 



If there is any text on the command line, then the Command 
property is parsed at the first space, in case additional com- 
mand-line arguments need to be passed to the launched pro- 
gram (download the ParseString procedure, included in the 
complete listing for the Launcher module, from the free, Regis- 
tered Level of DevX; see the Code Online box for details). The file 
path is passed to a ProgCheck procedure to check the version 
information. If this procedure returns True, the application 
launches using the Shell statement. Finally, the Splash form is 
unloaded, and Launcher terminates: 

Else 

If ProgCheck (ParseString (Command , " " , 1 ) ) Then 

Shel 1 Command , 1 
End If 

Unl oad Spl ash 
End If 
End 

End Sub 

CHECKING THE VERSION 

The ProgCheck procedure needs to check whether the file exists 
in both the program and install folders. The ProgCheck proce- 
dure also checks the versions and copies the EXE from the install 
folder if it is a newer version. First, check for the file in the program 
folder and get its version with the GetProgVersion procedure: 

Private Function ProgCheck( Fi 1 e$ ) As Boolean 

Dim verLocal F$, res% 

Dim verServerF$ 

Dim prgServerF$ , msg$ 

res - Fi 1 eExi st( Fi 1 e) 

If res = True Then 

verLocal F - Get Prog Vers i on ( Fi le) 
Else 

msg - File & " is not in Program folder." _ 
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Visual Basic 5 from the 
Ground Up 

Gary Cornel! 

ISBN: 0-07-882349-8, $34.99, 
759 pages. You'll learn how 
to harness the new Internet 
capabilities built into VB 5. 



Visual Basic Components 
Sourcebook for Developers 

Jeffrey P McManus 
ISBN 1-56276-544-2, $39.99 
430 pages, CO-ROM 
Catalogs and reviews hundreds 
of Visual Basic components 
from shareware to shrink-wrap. 



-Si 
-ex 

< 



VISUAL 
BASIC 5.0 

PROGRAMMER'S 
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WIN32 API 



Dan Appleman's VB 5.0 Program- 
mer's Guide to the Win32 API 

DanAppleman 

ISBN: 1-56276-446-2, $59.99, 1449 
pages, CD-ROM included. This 
books helps you harness the 
power of the Windows 32-bit op- 
erating system using visual Basic. 




VB Tips & Tricks 

David McCarter 
ISBN 1-890422-00-2. $24.95. 
141 pages. Two disks included. 
The first in a series of books de- 
rived from the author's VB Tips 
& Tricks electronic newsletter. 
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Advanced Microsoft VB 5 

The Mandelbrot Set (Interna- 
tional) Limited 
ISBN 1-57231-414-1, $49.99 
795 pages, CD-ROM 
For intermediate and advanced 
developers who want to push Vi- 
sual Basic 5 to the limit 
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Special Edition Using Visual 
Basic for Applications 5 

PaulSanna, etal. 
ISBN 0-7897-0959-7, $49.99 
776 pages, CD-ROM. Covering 
the new features of VBA 5, makes 
this developer's choice for Office 
97 application development 



Special Edition Using 
Access 97, Second Edition 

Roger Jennings 
ISBN 0-7897-1452-3, $49.99 
1275 pages, Your authoritative 
guide to mastering every facet 
of this powerful 32-bit data- 
base development platform. 
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Teach Yourself VB 5 in 21 
Days Professional 
Reference Edition 

Nathan Gurewich & OhGurewich 
ISBN 0-672-31176-3, $49.99, 
919 pages, CD-ROM 
Essential principles for design- 
ing and developing VB apps. 





Visual Basic 5 Interactive 
Course 

John Harrington, etal 
ISBN 1-57169-077-8, $49.99 
1026 pages, CR-ROM, 
Provides thorough coverage 
of VB 5's new ActiveX and 
Event features. 




Teach Yourself Visual Basic 5 
In 21 Days 

Nathan Gurewich & OhGurewich 
ISBN 0-672-30978-5, S29.99 
769 pages. Is a hands-on guide 
to learning all the basic pro- 
gramming aspects of VB 
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Microsoft Visual Basic 5.0 
Developer's Workshop, 4th Ed. 

John Clark Craig & Jeff Webb 
ISBN 1-57231-436-2, $44.99 
725 pages, CD-ROM. The recipes 
to build powerful graphical appli- 
cations for the Windows 95 and 
Windows NT operating systems. 
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Teach Yourself VB for Apps 5 
in 21 Days, 3rd Ed. 

Matthew Harris 
ISBN 0-672-31016-3, $39.99 
1214 pages. Using step-by-step 
instructions and real-world ex- 
amples, you'll master fundamen- 
tal elements and concepts of VBA. 
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About Face: The 
Essentials of Windows 
Interface Design 

Alan Cooper 

ISBN 1 -56884-322-4, $29.99, 
558 pages. A methodology 
of user interface design. 
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Visual Basic Programmer's 
Guide to Serial Communications 

Richard Grier 

ISBN 1-890422-25-8. 534.99. 272 
pages. Disk included. Add serial 
communications to your VB 
apps using controls and the 
Windows API. 



Visual Basic 5 Client/ 
Server How-To 

NoelJerke, etal 
ISBN 1-57169-078-6, $49.99 
861 pages, CD-ROM 
Practical guide to implementing 
client/server apps and solving 
development problems. 



Hardcore Visual Basic 5.0, 
Second Edition 

Bruce McKinney 
ISBN 1-57231-422-2, $49.99 
723 pages, CD-ROM. Tackles 
tough issues with smart cod- 
ing, practical tools and analy- 
sis, and an unblinking style. 




Special Edition Using Visual 
Basic 5, Second Edition 

Mike McKelvy, Jeff Spotts, & 
Brian Siler 

ISBN 0-7897-1288-1, $39.99 
1058 pages. Complete coverage 
of all the features of Visual 
Basic 5. 
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Visual Basic 5 Developer's 
Guide 

Anthony T. Mann 
ISBN 0-672-3 1 048- 1 , $49.99 
992 pages, CD-ROM 
Filled with essential information 
that will enhance your skills and 
expand your knowledge of VB 5. 




FEATURED BOOKS OF THE MONTH 



I Doing Objects 
in Microsoft 
Visual Basic 5.0 




This book goes beyond thetypi- 
cal how-to tips and tricks to 
teach you a pragmatic ap- 
proach to application design 
and development. You'll learn 
howto build classes and imple- 
ment objects in all your projects, 
integrate databases into your 
object-oriented applications, 
build ActiveX servers and 
ActiveX controls, and convert 
your VB forms into ActiveX 
documents that you can display 
from a Web browser. 




Microsoft insider William 
R. Vaughn shows devel- 
opers how to use Visual 
Basic 5.0 to access data 
via SQLServer. This fifth 
edition also reveals the 
possibilities within the 
latest Visual Basic 5.0 
technology-including its 
new ability to support a 
fully event-driven model. 
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VISUAL 
BASIC 5.0 



Dan Appleman's bookteaches you 
ActiveX control development for 
both applications and the Internet/ 
intranet. You'll find a review of key 
technology, from beginning OLE 
fundamentals to the latest in 
ActiveX component, ActiveX con- 
trol, and ActiveX document tech- 
nology. Learn to design an object 
model, create and test compo- 
nents, straighten out versioning 
problems, and understand con- 
tainer dependencies. 



Doing Objects in Microsoft 
Visual Basic 5.0 

Deborah Kurata 

ISBN 1-56276-444-6, $49.99, 545 pages, CD-ROM 



Hitchhiker's Guide to Visual 
Basic & SQL Server, 5th Ed. 

William R. Vaughn 

ISBN 1-57231-567-9, $49.99, 784 pages, CD-ROM. 



Dan Appleman's Developing ActiveX Components with 
Visual Basic 5.0: A Guide to the Perplexed 

Dan Appleman 

ISBN 1-56276-510-8, $49.99, 716 pages, CD-ROM 
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Check out The Development Exchange 
for a complete list of books availa 
ORDER ONLINE at: 

www.windx.com 
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Web Development with 
Visual Basic 5 

Davis Chapman. 
ISBN 0-7897-0811-6, $49.99 
937 pages, CD-ROM. Covers 
every aspect of VB 5 apps de- 
velopment inci. active Web 
content development 
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VB 5 Superbible Sel-2 vols. 

Eric Winemiller, David Jung, 
Pierre Boutquin, John Harrington, 
Bill Heyman, Ryan Groom, Todd 
Bright & Bill Potter 
ISBN 1-57169-102-2, S69.99 
2275 pages, CD-ROM. Updated 
coverage of all VB concepts. 
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Core Visual Basic 5 

Gary Cornell & Dave Jezak 
ISBN 0-13-748328-7, $49.95 
912 pages, CD-ROM 
Riled with insidertips and tricks that 
are documented nowhere else. 
Core visual Basic 5 is the only book 
with complete coverage of the new 
visual Comonent Manager. 
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Teach Yourself Database 
Programming with VB 5 in 
21 Days, Second Edition 

Michael Amundsen & Curtis 
Smith 

ISBN 0-672-31018-X, $45.00 
1041 pages, CD-ROM. Learn 
everything from the simplest 
program to creating and 
securing large database pro- 
grams. 



Buy three or more books and save 15% 



FTP Books 

FAWCETTE TECHNICAL PUBLICATIONS 

209 Hamilton Avenue 
Palo Alto »CA» 94301 
PHONE: 650-833-7100 

FAX: 650-853-0230 

www.windx.com 
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& vbCrLf 



End If 



Check for the file in the install folder, 
get its version, and compare the two 
versions. If the program folder version is 



| lower, put a message in the Comment 
i label on the splash form and use the 
FileCopy statement to copy the file: 

prgServerF - InstallFolder & "\" & _ 
StripPathName(File) 




User Tip 



VB3, VB4 16/32, VB5 

CREATE ANY DIRECTORY 

Using MkDir to create the directory "C:\One\Two\Three" will fail if 
C:\One doesn 't exist. This routine creates any directory by creating the 
needed directories along the way, if necessary: 

Sub CreateOi rectory (ByVal strDi rName As String) 
Dim Path As String 
Dim Offset As Integer 
Dim Mark As Integer 
Dim OldPath As String 

On Error Resume Next 

'Add trai 1 i ng backsl ash 

If Right $( strDi rName. 1) <> "\" Then 

strDi rName - strDi rName & "\" 
End If 

'Where are we now? 
OldPath - CurDi r 
Mark - 

' Loop and make each subdir of the path separately. 

Offset- InStr(Mark + 1, strDirName. "\") 

Mark -Offset 

Do 

If Mark > Then 

Path - Left$(strDirName, Offset - 1) 
'Determi ne if this di rectory al ready exi sts 
ChDi r Path 

'Create thi s di rectory i f needed 
If Err Then 

ChDir OldPath 

MkDir Path 
End If 
End If 

Offset - InStrtMark + 1, strDirName. "\") 

Mark - Offset 
Loop Unti 1 Mark - 
'Return to original directory 
ChDir OldPath 
End Sub 



— Bruce Hamilton, Bothell, Washington 
SEND YOUR TIP 

If it's cool and we publish it, we 'II pay you $25. If it includes code, please limit code 
length to 20 lines if possible. Be sure to include a clear explanation of what the 
technique does and why it is useful. Send it to vbpjedit@fawcette.com orFawcette 
Technical Publications, 209 Hamilton Ave., Palo Alto, CA, USA, 94301-2500. You 

lilin 



res - Fi 1 eExi st (prgServerF) 
If res - True Then 
verServerF - _ 

GetProgVers ion (prgServerF) 
On Error GoTo ErrorHdler 
If verLocal F < verServerF Then 
Splash. lbComment 

"Copyi ng from Server" 
Splash. Refresh 
FileCopy prgServerF, File 
msg - "" 
End If 

ProgCheck - True 

The procedure ends with appropriate 
error handling. 

The GetProgVersion procedure is 
simple because it uses the FileVer DLL I 
created in one of my VBPJ columns. Di- 
mension an instance of the cFileVer class 
and set the sFileName property. Then 
call the GetFileVersionData method and 
return the sFileVersion property: 

Pri vate Function _ 

GetProgVersion(File$) As String 

Dim cF As New cFi 1 eVer 

On Error GoTo Errhdlr 

cF. sFi 1 eName - Fi 1 e 

cF. GetFileVersionData 

GetProgVersion - cF.sFil e Vers ion 

Exit Function 

Errhdl r: 

MsgBox "Error- " & Error$ & _ 
" Err-" & Err. Number & _ 
Chr(13) & "File name-" & _ 
"(" & File$ & ")" 

End Functi on 

You can download the source code 
files for Launcher from the Registered 
Level of The Development Exchange (see 
the Code Online box for details). I'm curi- 
ous to see how you enhance Launcher. E- 
mail me your improvements, and I'll share 
them with other readers. M 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:/ / 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club," in the 
Table of Contents. 

Launch Your App 
Locator+ Codes 

Listings for the entire issue, plus 
LAUNCHER.zip, which includes the complete 
listing for the Launcher module and the FileVer 
DLL (free Registered Level): GS1 98 
Listings for this article only, plus iVie files 
described above (subscriber Premier Level): 
LYGS198 
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Create Outlook Apps 
in a Snap 

by Tom Campbell 



Build sophisticated apps by 
taking advantage of Outlook's 
object model. 

Outlook, Office 97's new Personal Information Manager (PIM), 
replaces the Microsoft Schedule* and Exchange systems you're 
probably familiar with. Outlook integrates e-mail, a calendar, a 
contact list, and a task manager, and it sports a journal and a 
software version of those handy little sticky notes. Although the 
current version of Outlook doesn't have VBA built in, it has an 
extensive object model that any Automation controller can use. 
But getting started is tricky — the programming documentation 
is a bit sparse. I'll show you how to create useful Outlook apps 
with little code using Visual Basic. 

As a Microsoft insider on the VB team with direct ties to 
the Office group, I used one of Microsoft's secret Borg-like 
communication techniques to learn about hacking Outlook. I 
ordered Office 97 after it was available in the stores, studied 
the help file like a rabbi reads the Torah, cruised through the 
object model using the VB Object Browser, and spent hours 
writing small test programs. Because the Outlook object 
model is huge, I can show you only the highlights, but all the 
major tips and techniques 1 used programming Outlook over 
the last month or so are covered here (see Table 1). For more 
information on the Outlook object model, check out the VBA 
Objects site at http://objects.windx.com. 

If you want to program Outlook, you'll probably start by 
bringing up the help file VBAOUTL.hlp in the Office subdirectory. 
Its sole topic is "Installing Visual Basic Help for Microsoft 
Outlook." What? A help file that tells you only that you need 
another help file by the same name? Turns out that even if you 
installed the full Office with every option checked, all you get is 
this 19K placeholder file, which directs you to the 
ValuPack\MoreHelp subdirectory on the Office CD, where the 
real Outlook VBA help file, weighing in at a respectable 365K, has 
been cleverly hidden. You then copy the VBAOUTL.* files to the 
Office subdirectory. VBA help for Outlook is now available — 
that's the good news. The bad news is, it consists solely of a 
reference for the Outlook object model, with no introductory 
matter, no complete examples, and few example fragments. 



Tom Campbell is a Visual Basic program manager at Microsoft. 
You can reach Tom by e-mail at tomcam@microsoft.com. 
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This article helps you fill in the gaps left open by VBAOUTL.hlp 
and gives you the background to program Outlook effectively. 

Here's the central paragraph of this article: 

The most important Outlook object is Application. You need to 
create one every time you want to program Outlook because it 
gives you access to the rest of the Outlook object hierarchy. Itsmost 
important methods are GetNameSpace and Createltem. You need 
GetNameSpace whenever you want to send mail. You need 
Createltem whenever you want to create a mail message, a 
contact, a task, an appointment, or a note. 

Highlight that paragraph, become intimately acquainted with 
the Object Browser, and you'll be able to figure out anything the 
rest of this article doesn't tell you. 

To display the current mail user's name, open the Project 
menu, choose References..., and click on the Microsoft Outlook 
8.0 Object Library. Add a button to a form and add this code to 
the button's Click event. It illustrates use of both the Application 
object and its GetNameSpace method: 



Objects 


Methods 


Properties 


Application 


GetNameSpace 
Createltem 




NameSpace 


GetDefaullFolder 


CurrentUser.Name 
Folders 


Mailltem 


Send 


Recipients 

Subject 

Body 


MAPIFolder 




Name 

UnreadltemCount 


Taskltem 


Save 


Subject 

Body 

DueDote 


Contactltem 


Save 


Body 

CompanyName 
BusinessTelephoneNumber 



Table 1. Zeroing In. Outlook has an enormous object model, but 
as with VB, the 80/20 rule applies: about 80 percent of your 
programming will use 20 percent of the object model. Here are the 
key objects mentioned in the article, with the methods and properties 
you're most likely to use. 
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Pri vate Sub CommandButtonl_Cl i ck( ) 
DimtheApp, theNameSpace 

Set theApp - CreateObjectC'Outlook.Appl i cati on") 
Set theNameSpace - theApp. Get Namespace ( "MAPI") 
MsgBox theNameSpace . CurrentUser . Name 
End Sub 

The call to CreateObject("Outlook.Application") returns an 
object of type Application. The Application's GetNameSpace 
method returns a NameSpace object. Currently, you always 
pass GetNameSpace the same string, "MAPI", but presumably a 
future version of Outlook could support other mail protocols. 
You need the NameSpace obj ect for anything that uses Outlook's 
messaging features. For example, its Folders property is a 
collection of collections — a list of all the Outlook folders and 
subfolders, including the ones you create. The CurrentUser 
property of NameSpace is of type Recipient and has interesting 
properties of its own. Among them is Name, which returns the 
display name — handy for creating an app that automatically 
reads the user's name. 

PROGRAM OUTLOOK TO SEND MAIL 

To send mail, all you need are the Recipients, Subject, and 
Body objects, and the Send method. Use this code to 
program the command button that creates a short message 
and mails it: 

Private Sub Commandl_Cl ick( ) 

Dim theApp, theNameSpace , theMai 1 Item 
Set theApp - CreateObjectC'Outl ook.Appl i cati on") 
Set theNameSpace - theApp. Get Names pace ("MAPI") 
Set theMai 1 Item - theApp. Createltemtol Mai 1 Item) 
With theMai litem 

. Reci pi ents . Add "Inf o@wubba .com" 

.Subject- "Flapdoodles" 

.Body - "Have any flapdoodles?" 

. Send 
End With 
End Sub 

As always, you must create an Application object and a 
NameSpace object. The new object is a Mailltem, one of 
several kinds of objects you can create with a call to 
Application. Createltem. Keep in mind that the 
Mailltem. Send method sets the item to Nothing, so you 
need to do an Application. Createltem each time you send 
a letter. A more realistic application would be one that 
reads names from a text file and sends form letters to those 
names (see Listing 1). 

Use the Recipients.Add method to add one or all of the 
names on the To: line. The Subject property is the text that 
appears on the Subject line of the message, and the Body 
property is the text of the e-mail message itself. 

GETTING ACCESS TO FOLDERS 

Every Outlook mail client has a collection of folders. Folders 
have heaps of their own properties, but the first thing you'll 
probably want to do is find out which folders are available at 
the top level. This code assumes that the form has a command 
button named Command 1 and a list box named, with stunning 
originality, Listl: 

Private Sub Commandl_Cl ick( ) 
DimtheApp. NameSpace. Folder 

Set theApp -CreateObj ect ("Outlook. Application") 

Set NameSpace - theApp . GetNamespacet "MAPI" ) 

For Each Folder In NameSpace. Fol ders 



VBA5 

Private Sub Commandl_Cl ick( ) 
Dim InFile, NextName, Msg 
DimtheApp, theNameSpace, theMailltem 
Set theApp - CreateObjectC'Outl ook . Appl 1 cati on") 
Set theNameSpace - theApp. Get Namespace ( "MAPI" ) 
InFile — FreeFi 1 e 

Open "c : \ names .txt" For Input As #InFil e 
Msg - "Thank you for using OurProduct" 
Msg - Msg & " 2.0. You can obtain" 
Msg - Msg & " technical support by" 
Msg - Msg & " emai 1 i ng us at" 
Msg - Msg & " support@wubba.com" 
While Not EOFUnFile) 

Line Input #InFil e, NextName 

Set theMail Item - theApp .CreateItem(ol Mai 1 Item) 

With theMail Item 

.Subject - "Our Product" 

. Body - Msg 

.Recipients.Add NextName 
.Send 
End With 
DoEvents 
Wend 

Close#InFile 
End Sub 



Listing 1 . Create Your Own Spammer. This program takes e-mail 
addresses inatextfiIe,oneperline,andsendsaformlettertoeachname 
in the hie. Create a hie called NAMES. TXT in the root directory of drive 
Q and put an e-mail name in each line of the hie. Make sure the form 
includes a button named Command! and a list box named List!. 

Listl. Addltem Folder. Name 

Next 
End Sub 

On my system, this code returns the folders named Public 
Folders, Personal Folders, and Mailbox - Tom Campbell. Within 
the folders are collections of other folders, but if you're develop- 
ing a custom app for someone, you might wish to use the 
NameSpace.CurrentUser.Name property covered earlier to fig- 
ure out the name of the user's inbox. 

You can get access to built-in folders such as the Inbox another 
way. The NameSpace object has a method called GetDefaultFolder 
that returns folders such as olFolderlnBox, olFolderTasks, 
olFolderNotes, and so on. If you want to write a wizard that checks 
the user's inbox for unread messages from a particular person, you 
first check for unread messages, period. You can do it by using the 
UnReadltemCount property: 

Private Sub Commandl_Cl ick( ) 
DimtheApp, theNameSpace, theFolder 

Set theApp -CreateObj ect ("Out look. Application") 
Set theNameSpace - theApp. GetNamespacet "MAPI") 
Set theFolder - theNameSpace. _ 

GetDef aul tFol der ( ol Fol der I nbox ) 
MsgBox "Unread messages in Inbox: " _ 
& theFolder. UnReadltemCount 
End Sub 

This is the core of a program that you could use for an 
answering system or mailing list agent. Many companies or 
mailing lists ask you to send information requests to a 
dummy address that's actually an agent program, not a 
person. This agent breezes through your inbox, searching 
for the case-insensitive phrase "info on myproduct" any- 
where in the Subject line. For illustration purposes, all it 
does is copy the sender's address to a list box named Listl , 
but your own version would probably send a letter contain- 
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Private Sub Comma ndl_C1 i ck ( ) 
Dim Eachltem As Long 
DimMailltem, InboxFolder 
DimtheApp. theNameSpace 

Set theApp - CreateObject ("Outl ook.Appl i cati on") 
Set theNameSpace - theApp .Get Names pace ( "MAPI" ) 
Set InboxFolder - theNameSpace. GetDefault Folder _ 

(ol Folderlnbox) 
For Each Mail Item In InboxFolder . Items 

Eachltem - Eachltem + 1 

Labell - "Searching item " & Eachltem & " " & _ 

"of " & InboxFol der. I terns. Count 
If InStrd, Mall Item. Subject, _ 

"info on myproduct", vbTextCompare) Then 
Listl.Addltem InboxFolder. _ 
Items(Eachltem) .SenderName 
End If 
DoEvents 



Listing 2. Secret Agent Man. This is the basis for a simple agent 
program that cruises through your inbox, searching 
for messages that include the string "info on myproduct" (case- 
insensitive ). It updates a label with the current item beingsearched 
to provide visual feedback of its progress. This is the same 
technique used by many automated interfaces for mailing lists, or 
Web sites that let you request product information. All this program 
does is put the names into a list box, but you could easily construct 
a message and send it using code from Listing 1. Be sure your form 
has a label named Labell and a list box named Listl. 




T 



he Watch window lets 
you view all of an object's 
properties at run time. 



ing product information to the person requesting it, then 
add that person's name to an Outlook contact list for future 
tracking (see Listing 2). 

Don't forget the DoEvents and a Cancel button on the 
form for a loop like this. My inbox normally contains a 
couple thousand items and I get four or five hundred 
messages a day; searching through the whole list takes 
several minutes, and without the DoEvents there's no way 
to interrupt the search. 

Now that you're familiar with folders and Mailltem objects, 
you'll find creating tasks even simpler. Body and Subject will 
be familiar, but you Save instead of Send. Because there's only 
one task list, you don't need to specify a folder. This example 
creates a task reminding you to check the spelling and context 
links in a help file with a due date of tomorrow: 

Private Sub Commandl_Cl ick( ) 
Dim theApp, theltem 

Set theApp - CreateObject ("Outl ook.Appl 1 cati on") 
Set theltem - theApp. Create I tem(ol Task I tern) 
theltem. Subject - "Check help file" 
theltem. Body -"1. Spell ing 2. Links" 
theltem. DueDate - Now( ) + 1 



End Sub 

Be sure to look at the properties and methods of Taskltem 
objects. They allow you to perform sophisticated tasks, such as 
skipping recurrences of recurring tasks or responding to meet- 
ing requests. 

By this time, creating contacts is a snap. Once again, you 
don't need to deal with MAPIFolder objects, and once again you 
use the Save method to store a contact in the right folder. This 
simple program creates a contact item and includes a note 
("Plays horn") for the unnamed comments section of an Outlook 
Contact record: 

Private Sub Commandl_Click( ) 
Dim theApp. theltem 

Set theApp -CreateObject ("Outlook. Application") 
Set theltem- theApp. Createltemfol ContactI tern) 
theltem. Ful 1 Name - "Tom Campbel 1 " 
theltem. FileAs - "Campbell , Tom" 
theltem. Body - "PI ays horn" 
theltem. CompanyName - "Microsoft" 
the Item. Busi nessTelephoneNumber - "(206) 936-8080" 
theltem. Save 
End Sub 

This article demonstrates that you only need to know 
about a few objects and methods. To learn more, create a 
reference to Outlook and use the VBA Object Browser. 
Finally, I found the Watch window surprisingly helpful. Even 
with late-bound objects such as those in Outlook, the Watch 
window lets you view all of an object's properties at run 
time. In fact, it lets you drill down into collection properties, 
often a much faster way to learn about complex objects than 
even the help file provides. 

I've written a VBA program that drives Outlook using 
Word's forms and VBA capabilities. It searches your Out- 
look address book and notes section for the term "VBA 
Book." If it finds contacts with this information, it automati- 
cally sends them a note explaining that your new VBA book 
is complete and ready to order. Registered members of The 
Development Exchange can download the code for this app 
(for details, see the Code Online box). 

The best way to learn about Outlook is to pound out some 
code — right now. You can write most of the programs in this 
article in fewer than a dozen lines. Because Outlook is such a 
sophisticated runtime environment, the output is dramatic and 
easy to validate. Besides, it's just cool to write programs that 
drive other programs like this. ■ 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club," in the Table of Contents. 

Create Outlook Apps in a Snap 
Locator+ Codes 

Listings for the entire issue, plus IOGS1 98.ZIP, which includes a VBA 
program that drives Outlook using Word's forms and VBA capabilities 

(free Registered Level): GS198 

Listings for this article only, plus the file described above (subscriber 
Premier Level): IOGS198 
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Add E-Mail to Your Apps 



by Chris Barlow 



Encapsulate e-mail functionality 
into ActiveX DLLs for easy 
reuse later. 



Users have come to expect all Windows applications to feature 
the ability to send e-mail. If your application creates a data file, 
you definitely want to provide a menu item that attaches that 
data file to an e-mail message and sends the message. 

Only a few years ago, it was difficult to mail-enable your 
application. You needed to install an e-mail client, such as MSMail, 
as well as several Messaging Application Programming Interface 
(MAPI) DLLs to link to a MAPI service provider, such as a Microsoft 
Mail (MSMail) post office or Exchange. Today, e-mail is ubiquitous 
and most computers are set up for e-mail. The interfaces have been 
simplified, and your Windows Messaging or Outlook client can 
communicate with your organization's Exchange Server through 
MAPI service providers such as CompuServe, Microsoft Network, 
and America Online, or through any Simple Mail Transfer Protocol 
(SMTP)/Post Office Protocol 3 (P0P3) mail server. 

In previous articles in this magazine's sister publication, Visual 
Basic Programmer's Journal, I suggested you use the MAPI controls 
that come with Visual Basic or direct calls to the MAPI DLL to add 
e-mail functionality to your apps ["A New Outlook on MAPI," VBPJ 
November 1996] . Now, with the release of Outlook 8.01 and Exchange 
5.0, you should use the new Active Messaging 1.1 components 
released by Microsoft because Active Messaging is easier to use, 
more flexible, and more powerful. You can download these compo- 
nents from Microsoft's Web site at ftp:// ftp. microsoft, com/services/ 
technet/samples/boes/bo/mailexch/exchange/appfarm/actmsg.exe. 

Active Messaging gives you easy access to sending and receiv- 
ing e-mail from within a Visual Basic application. It also gives you 
full access to the folders within your information store. To send e- 
mail from an application with Active Messaging, start a new Visual 
Basic 5 project and design a simple form to send e-mail. Make sure 
you create text-box controls for the recipient, subject, message, 
and attachment, as well as a CommandButton control labeled 
Send. Select the References menu item on the Project menu, and 
add a reference to the Microsoft Active Messaging 1.1 Object 
Library. Double-click on the Send button and add this code to call 
the new procedure SendWithAM: 

Private Sub butSend_Cl 1ck( ) 
SendWithAM 
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Figure 1. Simplified Object Model. The object mode I for the Active 
Messaging Library is a hierarchical model. In this figure, each 
indented object is considered a child of the object under which it is 
indented. An object is the parent of every object at the next level of 
indention under it. For example, an Attachments collection and a 
Recipients collection are both child objects of a Message object, and 
a Messages collection is a parent object of a Message object. However, 
a Messages collection is not a parent object of a Recipients collection. 

Chris Barlow is president of SunOpTech, a developer of document 
management, decision-support, and supply chain applications, in- 
cluding the ObjectBank, ObjectOrder, and ObjectJob systems. He 
hotdstwo U. S. Patents related to software for decentralized distributed 
asynchronous object-oriented and scheduling systems. Chris, who is a 
frequent speaker at VBLTS, Tech'Ed, and DevDays and has been 
featured in two Microsoft videos, holds degrees from Harvard Business 
School and Dartmouth College. Reach Chris at Chris@VBExpert.com 
or through his Web server at www. VBExpert.com. 
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Option Expl icit 
Public Profile As String 
Private mLoggedOn As Boolean 

Publ ic Property Get LoggedOnt ) As Boolean 

LoggedOn - mLoggedOn 
End Property 

Private Sub Class_Initialize() 
On Error Resume Next 

Set oSession - CreateObjectC'MAPI .Session") 
If oSession Is Nothing Then 

Err. Raise vbObjectError + Err, "SOTMapi", _ 
"Create failed" 

Exit Sub 
End If 
End Sub 

Private Sub Class_Terminate( ) 
oSession. Logoff 
SetoSession-Nothing 
End Sub 

Public Function Logon_ 

(Optional sProfile As String - "") As Long 
'first try to logon with passed profile 
On Error Resume Next 
If Len(sProfile) Then 

oSessi on . Logon Prof i 1 eName :-sProfi 1 e 
If Err - Then 
mLoggedOn - True 
Profi le - oSession. Prof i 1 eName 
Exit Function 
End If 
End If 

'then try Profile property 
If Len(Profile) Then 

oSessi on . Logon Profi 1 eName :-Profi 1 e 
If Err - Then 
mLoggedOn - True 
Exit Function 
End If 
End If 

then try to logon to existing session 

ssion. Logon ShowDialog:-False, NewSession:-False 
Err - Then 



'th 
ff 6 



mLoggedOn - True 
Exit Function 
End If 

'logon failed so try to get default profile 
Profi 1 e - GetDef aul tProf i 1 e 

If Lent Prof i 1 e) Then oSession . Logon Prof i 1 eName: -Prof i le 
If Err - Then 

mLoggedOn - True 

Exit Function 
End If 

'final ly try a normal logon 
oSessi on. Logon 
If Err - Then 

mLoggedOn - True 

Exit Function 
End If 



Err . Rai se vbObjectError + Err 
Logon - Err 
End Function 



"SOTMapi", "Logon failed" 



Public Function SendQuick(SendTo$, Subject!, Optional 
Message! - "", Optional Attach! - "") As Long 

Dim oMessage As Message 

On Error Resume Next 

If Not mLoggedOn Then Logon 

If Err Then Exit Function 

Set oMessage - oSessi on. Outbox. Messages .Add 

With oMessage 

.Subject - Subject 
.Text - " " & Message 

End with 

With oMessage. Recipients. Add 

. Name - SendTo 

. Type - mapiTo 

.Resolve 
End With 

If Len(Attach) Then 

With oMessage. Attachments. Add 
.Position - 1 
.Type - ma pi Fi leData 
. Name - Attach 
. ReadFromFi le Attach 
End With 
End If 

oMessage. Send 
SendQui ck - Err 
End Functi on 



Listing 1 . MAPIClass Class Module. This class module contains the properties and methods for the new class. Design the Logon 
method to perform a "quiet" logon — first, by using a given profile name from the class's Profile property, then by trying to log on to an 
existing session, and finally by finding the default profile from the registry. 



End Sub 

Calling a procedure from your button 
Click events rather than writing the code 
inline gives you more flexibility to call the 
procedure from a different place in your 
application. 

The object model for Active Messaging 
is simple. The Session object is the starting 
point for all use of the Active Messaging 
components. Begin an Active Messaging 
session by creating a MAPI.Session object. 
All other objects are derived from the Ses- 
sion object (see Figure 1 for a simplified 
version of the object model from the Active 
Messaging help file). For example, you can 
create an outgoing message by adding a 
Message object to the Messages collection 
in the Outbox folder. 

Add code to dimension a Session object 
and a Message object, create the MAPI 
session, and call the Logon method of the 



Session object: 

Private Sub SendWithAM( ) 
Dim oSessi on As Object 
Dim oMessage As Message 
On Error Resume Next 
Set oSessi on - _ 

CreateObjectC'MAPI .Session") 
If oSession Is Nothing Then 

Exi t Sub 
End If 

oSession. Logon 

If Err Then Exit Sub 

Add a new outgoing message object, 
and set the Subject and Text properties 
from the text-box controls: 

Set oMessage - _ 

oSessi on. Outbox. Messages. Add 
With oMessage 

.Subject - txtSubject 



.Text - ' 
End With 



" & txtNoteText 



Add a Recipient object to this message, 
and set the Name and Type properties. 
Your e-mail message can have many recipi- 
ents. The Type property controls whether 
they appear in the To: or the CC: section of 
the message. You can use the With... End 
With statement to work with the Recipient 
object without having to dimension a vari- 
able to hold the Recipient object. Call the 
Resolve method to change the text name to 
a valid e-mail address. If you enter an am- 
biguous name, a dialog appears to resolve 
the name manually: 

With oMessage. Recipients. Add 

. Name - txtTo 

.Type - mapiTo 

. Resol ve 
End With 
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Figure 2. Send the Message. This is how 
your message looks in your Outbox after 
you send it with these procedures. Notice 
that the icon for the attachment is located in 
the first position of the mail message text. 

If you enter a file path in the Attachment 
text-box control, add an Attachment object 
to the message and set the Position, Type, 
and Name properties. The Position prop- 
erty determines where to place the icon for 
the attached file in the text portion of the 
message. Use the ReadFromFile method to 
read the file contents as an attachment: 

If Len(txtAttach) Then 

With oMessage. Attachments. Add 
. Posi ti on - 1 
.Type -mapi Fi 1 eData 
. Name =- txtAttach 
.ReadFromFile txtAttach 
End With 
End If 

Finally, send the message and log off 
the session (see Figure 2): 

oMessage. Send 
oSessi on. Logoff 
End Sub 

This is all you need to do to mail-enable 
your application, but let's go a step fur- 
ther. Messaging code has changed dra- 
matically over the past few years and will 
undoubtedly continue to change. Rather 
than write an application that calls these 
properties and methods explicitly, why 
not encapsulate this functionality into an 
ActiveX DLL with a simple class your appli- 
cations can call? This way, you won't need 
to change your applications the next time 
messaging changes because changing the 
DLL will upgrade your application. 

ACTIVE MESSAGING CLASS 

Select the Add Project menu item from the 
Projectmenuand choose ActiveXDLL. Right- 
click on the class module to display the 
Properties tab, change the name of the class 
to MAPIClass, and change Instancing to 
MultiUse. When creatingany class, you need 
to plan the properties and methods of the 
class. With this simple example class, you 



only need two properties and two methods. 

The LoggedOn property is True if the 
class is logged onto a messaging session. 
This should be a read-only property of the 
class, so you need a private variable to hold 
the value and a Property Get procedure to 
return the value. You can use the Profile 
property to specify the profile to use when 
logging on. Because the application using 
the class sets the Profile property, the prop- 
erty can be a simple public string variable. 
The Logon method calls the Session object's 
Logon method, but has the capability to find 
the default profile if one is not specified. The 
SendQuick method accepts the message's 
recipient, subject, text, and attachment as 
arguments, and provides a single simple call 
to send a message with no more than one 
attachment to a single recipient. 

You might find that you want to expand 
this class to allow for multiple recipients 
and multiple attachments, but let's start 
with this simple class for now. Dimension 
the public Profile property and the private 
mLoggedOn variable in the class module. 
Write the Property Get procedure to re- 
turn the value of this private variable: 

Option Explicit 

Publ ic Prof i 1 e As String 

Private mLoggedOn As Bool ean 

Publ i c Property Get LoggedOn ( ) As _ 
Boolean 

LoggedOn - mLoggedOn 
End Property 

Create the MAPI Session object in the 
class's Initialize event, and log off the 
session in the Terminate event: 

Private Sub Class_Initialize( ) 
On Error Resume Next 
Set oSession - _ 

CreateObjectC'MAPI. Session") 
If oSession Is Nothing Then 

Err.RaisevbObjectError + Err, _ 
"SOTMapi", "Create failed" 

Exit Sub 
End If 
End Sub 

Private Sub Class_Terminate( ) 
oSession. Logoff 
Set oSession - Nothing 
End Sub 

Because the SendQuick method is simi- 
lar to the SendWithAM you wrote, copy 
that code and paste it into your class mod- 
ule within the public SendQuick method. 
Modify the code to check the value of the 
mLoggedOn variable, and call the Logon 
method if the session is not logged on. The 
message will be sent as before, except you 
need to substitute the method's arguments 
for the text-box controls (see Listing 1). 



You should design the Logon method to 
perform a "quiet" logon — first, by using a 
given profile name from the class's Profile 
property, then by trying to log on to an 
existing session, and finally by finding the 
default profile from the registry. This last 
step can be a bit complicated. Article Q 1 7 1 422 
in the Microsoft Knowledge Base 
(www.microsoft.com/kb) provides some 
good sample code that I included in the 
GetDefaultProfile procedure in the class's 
module. Download Listing 2 from the free, 
Registered Level of The Development Ex- 
change (see the Code Online box for details) . 
The class should display a dialog box only if 
these quiet attempts fail (see Listing 1). 

Now build your ActiveX DLL, and 
change your test application to call your 
new class by adding the SendMailClass 
procedure to the form and changing the 
code in the Send button's Click event to 
call the new procedure: 

Private Sub SendWithClasst ) 

DimMyMapi As New MAPIClass 

On Error Resume Next 

If MyMapi .SendQuickCtxtTo, txtSubject, _ 

txtNoteText, txtAttach) -0 Then 

If Err Then 

MsgBox "Send Fan 1 ed " & Err 

Else 

MsgBox "Message Sent" 
End If 
Else 

MsgBox "Send Failed" 
End If 
End Sub 

Notice that your app doesn't need to 
set the profile or call the Logon method 
explicitly because the SendQuick method 
calls the Logon method if the session is not 
logged on. You've now wrapped the Active 
Messaging library with your own class. If 
all your applications use your class, it will 
be easy for you to maintain compatibility 
as messaging continues to evolve, x] 



Code Online 



You can find all the code published in this issue 
of Getting Started with Visual Basic on The 
Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club," in the 
Table of Contents. 

Add E-Mail to Your Apps 
Locator* Codes 

Listings forthe entire issue, plus AEGS198.ZIP, 
which includes the VB files that let you mail- 
enable your application (free Registered Level): 
GS198 

Listings for this article only, plus ibe files 
described above (subscriber Premier Level): 
AEGS198 
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The Office 97 Office Assistant, 
an animated Windows message 
box, features objects you can 
program to fit your needs. 

At the risk of being permanently ostracized from respectable 
programming circles, 1 am publicly voicing my opinion that the 
new Office Assistant is a worthwhile feature of Microsoft Off ice 97. 
On one level, the Assistant is a small subset of Microsoft's first 
major attempt at a social interface, Bob. Bob deserves every bit 
of scorn it received from software developers and users. The 
Assistant, on the other hand, can be a useful user interface feature 
in custom applications developed with Office. You might not want 
it on your desktop all the time, but you can pop it up when needed 
and make it disappear before it becomes annoying. 

The Office Assistant is basically a souped-up Windows mes- 
sage box with sounds and a cutesy face. You could do a lot of the 
same things with regular message boxes, but you'd have to 
make some tortuous calls to the Win32 API or use a special third- 
party control. Like most everything in Office 97, it exposes a 
programming interface through hierarchical objects (see Figure 
1). Assistant is a shared Office object, meaning that it's available 
in all of the Office applications. 

To demonstrate the various features of the Assistant and to 
show how to use it in your Office applications, I wrote a VBA app 
embedded in a Word 97 document. This program, which I'll call 
Office Assistant Explorer, lets you select individual animations 
or show them all in sequence, create a custom balloon, and use 
an array of balloons to respond to various events in your 
application (see Figure 2). 

The Assistant programming model consists of two elements: 
the Assistant itself and customizable balloons that contain the 
controls and buttons you can use to get input from the user. 
Clippit, the hyperactive paper clip, is the only Assistant in- 
stalled automatically; you can copy others from the Office CD as 
needed. The Windows registry holds configuration information 



For a full view of the Office 97 object 

^...M. '..."P ■ model, visit the VBA Objects site at http:// 

: O B J E C T S objects.wlndx.com. 
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Figure 1. Office Assistant Object Model. The Assistant 
comprises only a few of Office 97's hundreds of objects, but they 
expose all the features of a sophisticated user interface system. The 
ovals indicate single objects and the boxes indicate collections. 

tor the Assistants (see Table 1). 

You can use any of the Assistant's 34 animations in your 
applications by using the Animation property and one of the 
animation constants such as msoAnimationEmptyTrash or 
msoAnimationPrinting. In my sample application, you can watch 
five seconds of each animation for a particular Assistant in 
sequence by clicking on the Run Animation button. It's important 
to understand, however, that while you can specify any of the 34 
animations, a particular Assistant might not do anything with it. 
To download the application, go to the free, Registered Level of 
The Development Exchange (see the Code Online box for details). 

The other element of the Assistants, and the one that concerns 
you most programmatically, is the Balloon object. A Balloon is a 
cross between a regular Windows message box and a full form, 
giving you a moderate amount of control over its appearance and 
plenty of ways to respond to actions and selections by the user. 

DonKiely spends most of his time programming Windows and Web 
applications for rural Alaskan businesses. When he isn 't scrutiniz- 
ingcode, he explores Alaska and visits the polar bears on the Arctic 
Ocean. He's written and coauthored several books about VB and 
VC++, /'nc/ucfrng Visual Basic 5 Client/Server How-To. Reach him 
by e-mail at donkiely@computer.org. 
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Figure 2. Test the Office Assistant. My Office Assistant Explorer application uses the 
Office Assistant to provide hints about using the app itself. You can view all the animations 
available in an Assistant, build sample balloons, and learn how to code various common 
tasks with the Assistant. 



No matter what you think of the 
Assistant — smiling contortionist 
or cutesy pain in the neck — it 
provides some nifty features 
you can use in your VBA apps. 



uujeci: neaaing, text, labels, check boxes, 
and command buttons. A Balloon's head- 
ing is equivalent to amessage boxtitle, and 
the text property is equivalent to a mes- 
sage box's prompt. 

Each Balloon can display up to five 
label controls, using buttons, bullets, or 
numbers. All the controls must be the 
same type on a single balloon. The button 
option uses a clickable button in front of 
each list item so that a user can make a 
single selection from a list and you can 
respond to that selection. In addition to 
the five label controls, you can also use up 
to five check boxes. 

Set command buttons by using the 
Button property. Several constants give 
you a variety of button combinations such 
as no buttons, "OK" only, and groups 
such as "Back/Next/Snooze." Multiple 
button combinations act as control ar- 
rays, so you can respond to the particular 
button clicked on by using an index re- 
turned from the Show method. 

You can also include an alert or tip icon 
or a custom graphic almost anywhere on 
the balloon, including embedded in text. 

TAMING THE ASSISTANT 

Unlike many Office objects, you don't have 
to explicitly instantiate the Assistant; it's 
always there and ready for use if installed. 
First, save the state of the Assistant when 
your application starts and restore it when 
your app terminates. Because the Assis- 
tant is always loaded and ready to go, you 
have to save only the state of the Visible 
property in a Boolean variable: 

On Error GoTo Initial izeError 
bOfcAsstState- Assistant. Visible 
bHelpWithWizards 

Assistant.AssistWithWizards 
Assistant.Visible-True 
On Error GoTo 

When your application terminates, all 
you have to do is restore the states of the 
Visible property and any other user set- 
ting you mangled. 

Notice that I also saved the state of the 
AssistWithWizards property, which re- 
flects whether the user instructed the As- 
sistant to constantly show hints and tips 
when Office is in use. You might want to 
override such settings, but the best user 
interface design mandates that you follow 
the user's wishes. All other user option 
settings are reflected in the Assistant's 
properties. If the user doesn't want the 
Assistant, use message boxes instead. 

By default, the Office 97 installation pro- 
gram installs Clippit and all the support files 
for Assistant. If the user deletes any of the 
files, particularly all the actor files (with an 
ACP or ACT file extension), you can't use an 
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Assistant in your code. While you can pro- 
vide similar features with Common Dialog 
boxes or custom forms if the Assistant isn't 
available, I find that the easiest way to 
handle this is to simply capture the error 
and kill off your application gracefully: 

InitializeError: 

If Err. Number- -2147467259 Then 
MsgBox "Office could not find " _ 
& "any As si stants instal 1 ed , " _ 
& "so cannot run procedure." _ 
, , "No Assi stant Avai 1 abl e" 

End 
Else 

Resume 
End If 

You use a couple of procedures to dis- 
play a simple balloon as the user moves 
among controls on a form (see Listing 1). 
The first procedure is the Enter event for a 
combo box, which is equivalent to the 



GotFocus event of earlier flavors of VBA. It 
calls the second procedure, the 
ShowBalloon Sub procedure, which cre- 
ates a new balloon, sets its properties, and 
displays the balloon. In this case, I simply 
settheMode property to AutoDown (more 
on that in a moment), specified a single OK 
button, and set the heading and text from 
the calling procedure. The iRet variable 
captures the return value of the Show 
method, indicating the button the user 
clicked on to close the balloon. 

You can display the balloon in one of 
three modes: Modal, Modeless, or 
AutoDown. Modal balloons require input 
from the user before he or she can use 
anything else in the application, and 
Modeless keeps the balloon open until 
either you or the user closes it, letting the 
user continue to work in the appncalion. 
An AutoDown balloon stays open until the 
user clicks on anything, so it's an unobtru- 
sive way to pop up tips or other informa- 
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he Assistant programming 
model consists of two elements: 
the Assistant itself, and 
customizable balloons. 



tion without getting in the user's way too 
much. Focus does move to the balloon, 
however, so you have to click on the form 
to make it the active window again. 

Programming a modeless balloon takes 
a bit more work than the other two modes. 
Because a modeless balloon hangs around 
as the user works in an Office application, 
VESA needs some way of reconnecting with 
the code you want to run when a user clicks 
on a button on the Balloon. VBA reconnects 
by using a callback procedure, set with the 
Balloon's Callback property. You can call 
the procedure anything you want, but when 
it calls the callback procedure, the Assis- 
tant passes three parameters: 

Public Sub Call BackProcCbl n _ 
As Balloon, IBtn As Long, _ 
1 Priv As Long) 

The first parameter, which is a refer- 
ence to the Balloon object, allows you to 
get information about any check boxes 
checked and manipulate the balloon. The 
second parameter returns an index indi- 
cating which button the user clicked on. 
Wizards use the third parameter to con- 
trol Assistant. In the callback procedure, 
you must close the balloon; otherwise, 
you'll have miscellaneous balloons pop- 
ping up when you least want them. This 
feature isn't clear in the documentation. 



When you use check boxes on the bal- 
loon, you probably want to find out which, 
if any, the user has checked. Each balloon 
has an array of five check boxes, whether 
you use them or not, and you can simply 
loop through the array and check the 
Checked property (see Listing 2). Microsoft 
put a lot of work into expanding and stream- 
lining the object model hierarchy through- 
out Office 97, but somehow a Balloons col- 
lection didn't make the cut. To get around 
this problem, use a regular VBA array of 
Balloon objects. This is a handy technique 
if you want to set up all the balloons at once 
andsimplypopupthe proper balloon when 
you need it. I used this technique in Office 
Assistant Explorer to let the user cycle 
through a series of tips in sequence. 

Both the Assistant itself and the Balloon 
object have an Animation property. That 
way, you can set the property of the Assis- 
tant to perform the animation immediately, 
or set it for a balloon so the animation runs 
when that particular balloon appears. This 
is handy when you use an array of Balloon 
objects; each can have its own animation 
that runs when each balloon appears. 

ASSISTANT HAS PERSONALITY 

Microsoft imbued the Assistant with lots 
of personality, but also some quirks in the 
programming model. I ran into a few unex- 
pected limitations and oddities while 



Registry Key 


Contents 


Office\8.0\Assistant\AsstPath 


Lists the directory locations of Assistant files. 


0ffice\8.0\Assistanl\AsstSourcePath 


The drive from which Office wos installed, usually either a local or 
network CD-ROM and path. 


Shared Tools 


Contains a key name for each installed Assistant, including the full path 
and file name. The Clients subkey lists the Office applications that work 
with Assistants. 


Windows\CurrentVersion\ShoredDLLs 


Includes a key for each Assistant file located on the installation CD and 
files installed in the Actors subdirectory. 


0ffice\8.0\Common\Assistant 


Location of the current user option settings for the Assistant. 



Tablet . Office Assistant Registry Entries. Not surprisingly, Office uses the Windows 
registry extensively to maintain information about the Assistants installed on a user's 
system. You probably want to resist changing this information unless you install a 
particular Assistant with your application. All the keys listed are under the 
HKEY_LOCAL_MACHINE\SOFT-WARE\Microsoft\ registry key. 



working with the Assistant. First, I guar- 
antee that your Assistant will get out of 
whack as you develop and test your code. 
If balloons start appearing where you don't 
expect them, simply shut down and re- 
start all Office applications. 

Office 95 introduced natural-language 
queries for help, letting the user type in a 
question rather than search a list. The 
Assistant has that ability within the Office 
97 applications, but I couldn't find a way 
to include a text box in a balloon. Either 
Microsoft has hidden this feature, or it's 
kludging it by manipulating the balloon 
window at the API level. If anyone knows 
a way to do this without resorting to API 
calls, please let me know! 

You can't create your own Assistants 
yet, but Microsoft has hinted that you'll 
be able to soon. One of the Office group's 
program managers clued me into a pos- 
sible workaround using the Microsoft 
Agent control. You can find a beta version 
of Agent at http://www.microsoft.com/ 
workshop/prog/agent. The Agent doesn't 
support all the same controls as Office 
Assistant, such as embedded boxes, but 
it does have some neat features. 

Finally, the Assistant is available only 
within the Office applications, so an Office 
app must be running and its window must 
have the focus for the Assistant to appear. 
Unfortunately, this means you can't use it 
in VBA apps that don't use Office. Nor can 
you use the Assistant with the runtime 
version of Access included with the 
Microsoft Office 97 Developer Edition, and 
you can't record Assistant actions with the 
macro recorder. I don't really see the ab- 
sence of these features as big problems, 
but let Microsoft know if you want them. 

No matter what you think of the Assis- 
tant — smiling contortionist or cutesy pain 
in the neck — it provides some nifty fea- 
tures you can use in your VBA applica- 
tions. The Assistants will become even 
more valuable when Microsoft eases some 
of the limitations on their use. *1 



Code Online 



You can find all the code published in this issue 
of Getting Started with Visual Basic on The 
Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club" in the 
Table of Contents. 

Program the Office Assistant 
Locator+ Codes 

Listings for the entire issue, plus UVGS 1 98. ZIP, 
which contains the complete Office Assistant 
Explorer solution (free Registered Level): GS1 98 
Listings for this article only, plus the complete 
Office Assistant Explorer solution (subscriber 
Premier level): UVGS 198 
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Beyond the Code I 



Develop a Professional 
Application 



by Deborah Kurata 



The key to developing a 
professional application has 
nothing to do with code. 



With Visual Basic, developing an application is easy. Anyone 
who has used a paint or drawing tool can create forms, and 
anyone with a little programming knowledge can double-click 
on a control and write some code. But does this approach lead 
to a professional-quality application? 

For an application to be of "professional quality," it must meet 
a few requirements. First and foremost, the application must 
meet the needs of the users for whom it was built. Second, it must 
be robust. Finally, the application must be documented and 
maintainable so other developers can enhance and maintain it. 

The first and most important step in creating a professional- 
quality application has nothing to do with code; rather, it is 
understanding the needs of the users. See the sidebar, "Why No 
Code?" on the free, Registered Level of The Development Exchange 
(see the Code Online box at the end of the column for details). This 
step goes by many names: requirements analysis, business analy- 
sis, logical application design, and so on. For the purposes of this 
article, I'll use the term goal-centered design to identify the process 
by which you come to understand the needs of the users and 
convert those needs into a logical model of an application. 

Sometimes the word "design" is construed to mean "user- 
interface design." Visual Basic is marketed as a Rapid Applica- 
tion Development (RAD) tool, so it seems to make sense to 
design the application by rapidly developing it. Start with a 
prototype and just keep adding code until it is done. 

However, there are problems with this approach. The result- 
ing application will lack any well-defined architecture because 
it will not have been thought out appropriately. Imagine using 
this type of approach in constructing a building. Get a general 
idea of what the building should look like and then start building 
until it is done. If you've seen the Winchester Mystery House in 
San Jose, California, you've seen the result of this type of 
approach. Stairways lead to nowhere, doors open into walls, 
and rooms are too small to be useful. 

Another problem with this Ul-centered approach is that you 
don't get the big picture. It's difficult to determine from a set of 
screens how the system is really going to work. Going back to the 
building metaphor, imagine an architect giving a builder only the 
front-view and back-view drawings of a building. These drawings 



Class Diagram: Logical View / Project Design 



^Company Name 
%>Billing Address 
^Phone Number 



%>Name 

^Company Name 
^>Phone Number 
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^•Project Name 
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fibEnd Date 
Sfc>Budget 
^Status 



*AssignPersonQ 
♦CheckStatusQ 



Figure 1 . Visual Modeler's UML Design Drawing. Thesquares 
on this drawing represent the objects involved in the project- 
tracking application, and the lines between the objects depict the 

relationship between the objects. 

tell the builder nothing about the internal structure of the building. 

The Ul-centered approach can also cause the design team to 
lose focus. End users can get bogged down because they're stuck 
in the details of what the application will look like instead of 
discussing with you how the application must operate. Designers 
can get bogged down making many trivial user-interface changes 
instead of focusing on what the application needs to accomplish. 

GOAL-CENTERED DESIGN IS THE KEY 

If a user-interface prototype is not the best way to start the design 

Deborah Kurata is principal consultant and cofounder of InStep 
Technologies Inc., a consulting group that designs and develops 
client/server and Web-based applications (www. 
insteptech.com). She is the author of Doing Ob- 
jects in Microsoft Visual Basic 5.0 (Ziff-Davis 
Press ), which focuses on a pragmatic approach to 
object-oriented design and development of VB 
applications. Reach her at InStep Technologies, 
5424 Sunol Blvd. #10229, Pleasanton, CA 94566; 
or by e-mail at deborahk@insteptech.com. 
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Designing Your App 



General Design Tips 



Here are a few tips on using these design techniques: 



• Don 't forget the user. To ensure that the application meets the needs of the 
users, they must be involved in this step of the process. Even if you're familiar 
with the business, you must get the key users or subject matter experts 
involved in the design process. 

• Don 't worry about implementation. Given any problem, developers like to 
think about how to code a solution. At this point in the design, that is 
irrelevant. Again, the goal of this step is to fully understand the requirements 
in order to ensure the resulting application meets the needs of the users. 

• Don 't confuse the object model with a data model. As you develop the 
object model, you define the data elements associated with the objects. 
However, you are not developing a data model. A good data model requires 
a lot of information about the data, how it is related, and how it should be 
normalized. This information is not relevant at this point in the process when 
you are simply understanding the requirements of the application. You 
develop the data model later in the design process, after you are clear on the 
users' requirements. 

• The object model is not the design. At the beginning of this article, I stated 
that the user-interface design is not the design. The previous point states that 
the data model is not the design. Now, I'm telling you that the object model is 
not the design. The design is the set of all these things. — D.K. 



process, how do you begin? 

Start with a goal-centered approach 
that focuses on the goals of the applica- 
tion and how the application will be used. 
There are two basic steps to this ap- 
proach. First, define the basic entities or 
objects based on the goals of the applica- 
tion. Second, define use-cases, which iden- 
tify how the application will be used. Do- 
ing these steps in order is less important 



than making sure you do both of them. 

Let's look at an example to illustrate 
this approach. Say you've been asked to 
develop a new project-tracking system. 
This application could be for engineering 
projects, software projects, construction 
projects, or whatever. Currently, end us- 
ers use Excel spreadsheets to track their 
projects, but management wants a cus- 
tom application so users can verify data 
entry more easily, track all projects for 
clients, and obtain reports. 

The goal-centered design approach 
usually begins with a design team meet- 



ing to define the goal of the application. 
The design team should consist of one or 
more software professionals and one or 
more people from the user community. In 
this example, the design team identifies 
the goal of the application as, "To track 
each client project and the people in- 
volved with each project, and to report 
on project status." 

Next, the design team defines the ob- 



jects involved in the application. Because 
objects are basicallynouns.thedesign team 
starts to identify objects by picking out the 
nouns in the goal statement, such as client, 
project, people, and project status. 

This type of approach is called object- 
oriented because you focus on the ob- 
jects. An object-oriented approach lets 
you focus your thoughts on one object at 
a time instead of trying to put all the 
pieces together at the same time. This 
approach is even more important when 
working with more complex applications. 

For each identified object, the design 



team needs to answer these questions: 

• What is it? 

• What data is associated with it? 

• What does it need to do or have done 
to it? 

• How does it work with the other objects? 

The first noun that is identified is client. 
The client is anyone who can request a 
project. It could be an external organiza- 
tion or an internal department. The client 
object needs to track the company name, 
billing address, and phone number data. 
The client object doesn't need any specific 
processing, but it does need to be involved 
with projects because projects cannot ex- 
ist without a client. 

The project comprises the set of tasks. 
The project object must track the project 
name, client, start and end dates, budget, 
and project status. It needs to identify when 
the deadline of the project is near. The pro- 
ject object needs to be involved with people, 
because people are assigned to a project. 

People, in this context, are only the 
people involved with the project. This 
includes client personnel and company 
personnel assigned to work on the pro- 
ject. The people object must track every 
person's name, company, and phone num- 
ber. People are assigned to projects. 

Project status is the last noun in this 
example, but it's already listed as a data 
element for the project object, so you 
don't need to consider it separately. If 
this were a real application, you would 
define many more data elements and pos- 
sibly more objects. 

To keep track of what has been dis- 
cussed and defined, you must document 
the objects and associated information. 
During the discussions, you can collect the 
information easily using a whiteboard. 
Write the object names across the top of 
the white board and the information about 
each object underneath its name. 

You can also document objects using 
Class-Responsibility-Collaboration (CRC) 
cards, which are simply index cards (see 
Kathleen Dollard-Joeris's Programming 
with Class column, "Designing Objects in 
VB4" in the December 1995 issue of VBPJ). 
Write the name of each object and the 
information about it on its own index card. 

Regardless of the technique used to 
collect the information, a design docu- 
ment should define the goal of the applica- 
tion, summarize the objects and associ- 
ated information, and describe the use- 
cases (which I'll discuss later). You can 
then present this working document to all 
interested parties for review. 

UML AND VB 

As they say, "a picture is worth a thousand 
words." It is much easier to see the objects 
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Use-cases, sometimes called 
scenarios, outline the major 
tasks to be performed by users 
of the application. 



T 



Designing Your App 

he most important step 
in creating a professional- 
quality application has nothing 
to do with code; rather, it 
is understanding the needs 
of the users. 



and how they relate to one another in a 
drawing instead of just words. 

There are many different notations you 
can use to develop the drawing, often 
called an object model. You've probably 
seen the object hierarchy diagrams 
Microsoft uses to present its object mod- 
els. For example, Microsoft has published 
models for Microsoft Word 97, Microsoft 
Access 97, Data Access Objects, and more 
(check out the VBA Objects site at http:// 
objects.windx.com). 

However, there is now a recognized stan- 
dard notation for drawing an object-ori- 
ented design called the Unified Modeling 
Language (UML). UML was primarily devel- 
oped by Grady Booch, James Rumbaugh, 
and Ivar Jacobson, all from Rational Soft- 
ware. They combined the best of each of 
their own notations into this unified model. 

You can use tools such as Visio Profes- 
sional or Rational Rose to develop your 
object model using UML. See the side- 
bar, "UML: A Model of a Standard," on the 
free, Registered Level of The Develop- 
ment Exchange (see the Code Online box 
for details). If you own Visual Basic 5.0 
Enterprise Edition, you can download a 
scaled-down version of Rational Rose, called 
Visual Modeler, for free from the Microsoft 
Visual Basic Owners Only Web site (http:// 
premium.microsoft.com/vbasic). 

In the UML drawing of the example 
project, each box corresponds to each clas- 
sification of objects identified for the appli- 
cation (see Figure 1). The lines between 
these classes represent associations and 
depict the relationship between the classes. 

If you have Visual Modeler installed 
now, try drawing a similar model. You can 
create the drawing using the Class Dia- 
gram: Logical View/Three-Tiered Service 
Model. This default class diagram requires 
you to make some decisions about imple- 
mentation and select the appropriate tier 
for each object in the model. 

I prefer to save all the implementation 
decisions until later in the design process, so 
I start with a simple class diagram. Select 
Class Diagram from the Browse menu, then 
select a Logical View Package and a <New> 
Class Diagram. 

Regardless of which class diagram you 
use, the next step is to draw the classes on 
the diagram. Select the Class icon from 
the toolbar, and draw each class onto the 
diagram. Right-click on the class to set its 
name and define its properties, methods, 
and documentation. 

After you draw all the classes onto the 
diagram, define the associations between 
the classes. To do this, select the Associa- 
tion tool from the toolbar, and click on the 
two classes you want to associate. Visual 
Modeler draws thelinebetweentheclasses. 

Another advantage to using a tool 
such as Visual Modeler or Rational Rose/ 
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VB is that when it comes time to code, 
the tool can generate the first cut of the 
code for you. You can also use the tool 
to develop drawings from existing Visual 
Basic applications to aid in maintenance 
and enhancement activities. 

USE-CASES 

How do you know whether the resulting 
object model is correct? That is where 
use-cases are valuable. Use-cases, some- 
times called scenarios, outline the major 
tasks to be performed by users of the 
application. These can aid in the defini- 
tion of the objects, as well as the data and 
processing required by the objects. You 
can also use them to check with the re- 
sulting model to ensure that all use-cases 
exist somewhere in the model. 

For example, here's a use-case for as- 
signing a person to a project: 

• A user must be given a list of projects 
and allowed to select one. 

• The list of projects will be appropriate 
for the user's security level. 

• The user must be able to select one or 
more people from a list of people and 
assign them to the selected project. 

• There must be an easy way for the user 
to add to the project a person who does 
not currently exist in the list of people. 

• The person assigned to the project must 
be notified by e-mail. 

In reviewing this use-case against the 
object definition documentation developed 
for the example, you can see that the e-mail 
address must be added to the data ele- 
ments for the person. As you define and 
review use-cases, you might find additional 
data elements or even additional objects 
that you need to define. 

You can reuse these use-cases after 
each step of the design process to validate 
the results of the design step against the 
set of requirements defined by the use- 



cases. By validating the resulting models 
against the use-cases, there's a higher prob- 
ability that the application built from the 
design will indeed meet the needs of the 
users for whom it was built. 

You can also use these use-cases during 
the development process, as the first draft 
of the test plan. By ensuring that the appli- 
cation is tested against each use-case, you're 
testing whether the application meets the 
requirements. For a few tips on using these 
design techniques, see the sidebar, "Gen- 
eral Design Tips." 

The key to developing a professional 
application is the design. A good design 
should include the goal-centered design 
with an object model and use-cases, the 
user-interface design with a prototype, 
the application architecture with a physi- 
cal design model, the data design with a 
data model, and a project plan including 
testing strategies. The result of these de- 
sign steps will be a robust, maintainable, 
professional application that meets the 
needs of the users. 31 
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You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:/ / 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club," in the 
Table of Contents. 

Develop a Professional Application 
Locators- Codes 

Listings for the entire issue, plus BCGS1 98.ZIP, 
which includes two sidebars: "UML: A Model 
of a Standard" and "Why No Code?" (free 
Registered Level): GS1 98 
The file described above (subscriber Premier 
Level): BCGS1 98 



Resources for Learning 




ere is a list of online 
resources, books, video- 



tapes, and CDs; training 

companies and conferences; and user 
groups to help you get started with Visual 
Basic. You can find more information on 
these and others in the Product Guide 
and Community sections of The Develop- 
ment Exchange at http://www.windx.com. 
To purchase books, you can either con- 
tact the publishers directly or buy them 
through Fawcette Technical Publications. 
Call 650-833-7100 or 800-848-5523, or or- 
der them through the DevX Marketplace 
on The Development Exchange. 

While FTP's intent is to provide the 
most accurate and comprehensive infor- 
mation possible, the manufacturers are 
ultimately responsible for the accuracy of 
data and product claims. We encourage 
you to contact them for further informa- 
tion. Please send any additions or correc- 
tions to this list to Listings Editor, Fawcette 
Technical Publications, 209 Hamilton 
Avenue, Palo Alto, CA 94301-2500; fax 
them to 650-853-0230; or send e-mail to 
epeterson@fawcette.com. 




Online Resources 



Listed here are just a few of the Web sites de- 
signed for the VB programmer. These Web sites 
either focus on or have special areas for the 
beginning programmer. We offer a brief descrip- 
tion and address for each site. If you have visited 
a Web site you found useful for a beginning VB 
programmer, please let us know about it. Send 
theURLandyourcommentstovbpj@fawcette.com. 

CARL AND GARY'S HOME PAGE 

http://www.apexsc.com/ vb/ 
Carl and Gary's, the first VB Internet site, has everything from 
a beginner's page to The Jobs Page. Check out the archive 
of more than 30,000 messages of VB posts from USENET. 
The search engine makes it easy to find topics of interest 

DEBORAH KURATA'S TIPS AND TRICKS 

http: // www. insteptech .com/VBTipsFr. htm 
Deborah Kurata, the author of Doing Objects in Microsoft 
Visual Basic 5 and a VBPJ contributor, provides an extensive 
library of tips and tricks. Topics such as "Working with Forms 
and Controls" and "Working with Objects and Classes" are 
examined in depth in a question-and-answer format 

THE DEVELOPMENT EXCHANGE 

hffp://www. windx.com 

Through The Development Exchange (DevX) Web site, 

you can subscribe to Visual Basic Programmer's Journal, 



Java Pro, Microsoft Interactive Developer, Visual Pro- 
gramming ++, or the VBCD; register for various confer- 
ences, including VBITS; order books; and browse re- 
sources for Windows developers, including listings of 
add-on tools for Windows developers and links to other 
software-industry Web sites. All the code listings and 
associated files essential to the articles in the current 
issue of VBPJ are available for free to Registered mem- 
bers of DevX, in one ZIP file. DevX Premier Club members 
($20 for six months) can get each article's listings in a 
separate file, as well as additional code and utilities for 
selected articles, plus archives of all code ever published 
in Getting Started with Visual Basic, VBPJ, Java Pro, and 
Microsoft Interactive Developer magazines. 

INQUIRY.COM 

http://www.inquiry.com 
The Ask the Pros resources of inquiry.com were recently 
acquired by Fawcette Technical Publications. Ask the VB 
Pro provides a great way to get quick answers to your VB 
programming dilemmas. You will also find a catalog of 
questions already answered by VB pros themselves. 

JOSE'S WORLD OF VISUAL BASIC 

http://www.citilink.com/~jgarrick/vbasic/ 
To get started, look into the Beginner's Comer on this 
page. You'll find extensive resources, articles on pro- 
gramming, and a Top Ten list of do's and don'ts. Other 
topics include industry news, opinions, and downloads. 

MICROSOFT VISUAL BASIC 

http: / / www. microsoft.com/ vbasic/ 
The Microsoft Web site features numerous resources for 
Visual Basic users. Checkout the New User page, which 
includes tips, free downloads, and tutorials. You'll also 
find a complete searchable Knowledge Base (http:// 
www.microsoft.com/kb/), which contains articles on vari- 
ous programming topics for Microsoft development envi- 
ronments. 

SOFTCIRCUITS PROGRAMMING 

http://www.softcircuits.com 
SoftCircuits is a software development company that 
provides a wide variety of free software on its site. Most 
of the downloads have been updated for VB5. 

SOUTHERN CROSS 

VISUAL BASIC CODE & LINKS 

http://www.geocities.com/CapeCanaveral/ 
6740/ 

Check out this site's extensive source code library. The 
site provides more than 50 VB tips, plenty of links to other 
VB sites, and a showcase of free ActiveX downloads. 

THE BEST WAY TO LEARN VISUAL BASIC 

http://www.thebestweb.com/vb/ 
question. fitm 

The Best Way to Learn Visual Basic provides a wide 
variety of resources, as well as advice for how to get your 
questions about VB answered. 

VB4UANDME 

http://users.aol.com/vb4uandme/index.htm 
This site features aspecialpagejustforbeginners, which 
contains focused tips and tutorials. It also features a Q&A 
message board and source code archives. 

VB BOOTCAMP 

http://www.VB-Bootcamp.com 

Download code and utilities from the Web site of New 



Technology Solutions, the company that conducts the VB 
Bootcamp seminars. 

VISUAL BASIC EXPLORER 

http://www.vbexplorer.com 
Described as a place for Visual Basic newbies, this site is 
dedicated to providing resources to make you a better VB 
programmer. It features a tutorial section, as well as 
plenty of source code, downloads, and valuable links to 
other sites. VB Explorer also sponsors a Beginner Friendly 
Site Award and highlights several newbie-friendly sites. 

VISUAL BASIC ISLAND 

http://www.geocities.com/SiliconValley/ 
Park/8710/ 

Visual Basic Island provides an extensive library of source 
code to download, a unique section of tips for adding graph- 
ics to your applications, a Q&A section, and downloads. It 
also includes general third-parly product information. 

VB TIPS & TRICKS 

http://www.apexsc.com/vb/davem/vbtt.html 
VB Tips & Tricks provides downloadable files of numer- 
ous tips and tricks, brimming with useful information. 
However, the page lacks a searchable collection of Web 
pages containing all the tips. Note the Tip of the Month 
competition, featuring VB add-on tools as prizes. 

VISUAL BASIC FAQ 

http://home.sol.no/~jansh/vb/default.htm 
This is an updated version of an old standard that an- 
swered frequently asked questions regarding Visual Ba- 
sic. The new site features a tip of the week and a detailed 
Table of Contents to find your FAQs quickly. 




Books 



There are hundreds of books on the market for the 
beginning VB programmer. We offer a brief descrip- 
tion and contact information for each. If you 've read 
a book you found useful or would like to see a book 
reviewed, please tell us about it. Send the book title 
and publisher to vbpjedit@fawcette.com. 

BEGINNING VISUAL BASIC 5 

Beginning Visual Basic 5 by Peter Wright is written for 
anyone interested in learning to program with VB. It 
assumes no prior programming experience and uses a 
tutorial style to help readers develop their own code. It 
includes coverage of databases and ActiveX, and it fea- 
tures a Q&A section at the end of each chapter. $30. 
Wrox Press Inc. Phone: 773-465-3559; 800- 
814-4527. Fax: 773-465-4063. E-mail: 
sales@wrox.com. Web: http:// 
www.wrox.com. 

DAN APPLEMAN'S VISUAL BASIC 5.0 
PROGRAMMER'S GUIDE TO THE WIN32 API 

Dan Appleman's book includes sample programs and 
extensive information on porting from 16-bit applica- 
tions. It teaches how to write code thatwill run on both 16- 
and 32-bit systems. Full text is available on a searchable 
CD-ROM $59 99 

Ziff-Davis Press. Phone: 510-601-2000; 800- 
688-0448. Fax: 800-882-8583. E-mail: 
Orders@mcp.com. Web: http:// 
www.mcp.com. 
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Resources for Learning 



DEVELOPING ACTIVEX CONTROLS WITH 
VISUAL BASIC 5 

Al Williams' book provides an introduction to ActiveX 
technology, as well as step-by-step instructions for creat- 
ing and customizing ActiveX controls. $39.99. 
The Coriolis Group. Phone: 602-483-0192. 
Fox: 602-483-0193. Web: http:// 
www.coriolis.com. 

MICROSOFT VISUAL BASIC 5 STEP BY STEP 

This book by Michael Halvorson provides VB5 training to 
help you easily create custom programs for Microsoft 
Windows 95. It helps you get started with VB; work with 
controls, menus, and dialog boxes; and use modules and 
procedures. It also provides a list of the Top Ten Visual 
Basic Web sites. $34.99. 

Microsoft Press. Phone: 800-MSPRESS. E- 
mail: GO MSP. Web: http:// 
www.microsoft.com/mspress. 

TEACH YOURSELF VISUAL BASIC 5 IN 21 
DAYS 

This book by Nathan and Ori Gurewich teaches basic 
programming aspects of Visual Basic. Tutorials showyou 
how to use objects, controls, and components. The book 
contains day-to-day lessons, quizzes, and practical appli- 
cations $39 99 

Que. Phone: 31 7-581 -3500; 800-428-5331 . 
Fax: 317-581-3550. Web: http:// 
www.mcp.com/ que/. 

TEACH YOURSELF VISUAL BASIC 5 IN 24 
HOURS 

Greg M. Perry's book is designed to teach you the basics 
of programming in Visual Basic 5 with 24 lessons of one 
hour or less. Topics include controls and properties; list 
boxes and data lists,; printing with Visual Basic; and 
graphic image controls. The CD-ROM includes the VB5 
Control Creation Edition. $19.99 
Sams Publishing. Phone: 800-428-5331. Fax: 
317-581-3550. Web: http://www.mcp.com. 

THE MICROSOFT VISUAL BASIC WORKSHOP 

This book by John Clark Craig provides more than 50 
ready-to-run programs that you can incorporate directly 
into programming projects. The book demonstrates ev- 
erything from basic techniques to the creation of custom 
controls and dynamic link libraries. $39.95. 
Microsoft Press. Phone: 800-MSPRESS. E- 
mail: GO MSP. Web: http:// 
www.microsoft.com/mspress. 

VISUAL BASIC 5 FUNDAMENTALS 
UNLEASHED 

Visual Basic 5 Fundamentals Unleashed, by Michael 
Amundsen, provides a foundation for developing applica- 
tions with VB5. It takes a look at VB5's new features, and 
it talks about how to design forms, use property pages, 
handle errors, and use message boxes. The CD-ROM 
includes VB5 CCE and third-party products. $29.99. 
Sams Publishing. Phone: 800-428-5331 . Fax: 
317-581-3550. Web: http://www.mcp.com/. 

VISUAL BASIC 5: NO EXPERIENCE 
REQUIRED 

Visual Basic 5: No Experience Required, by Steve Brown, 
is a skill-building guide to learning VB. It provides an 
overview of the language and discussions of ActiveX 
controls. It gives details about the more important fea- 
tures, assuming technical but not VB knowledge. $29.99. 



Sybex Inc. Phone: 510-523-8233; 800-227- 
2346. Fax: 510-523-2373. E-mail: GO SYBEX. 

VISUAL BASIC 5 FROM THE GROUND UP 

Cay S. Horstmann's Visual Basic 5 from the Ground Up 
provides modular step-by-step instructions that take you 
from the basics of Basic to programming complete applica- 
tions and writing components that plug in and extend pro- 
grams written by others. Designed for the first-time program- 
mer and those looking to upgrade their VB skills. $34.99. 
Osborne/McGraw-Hill. Phone: 510-549- 
6600; 800-227-0900. Fax: 510-549-6603. 
E-mail: aellings@mcgraw-hill.com. Web: 
http://www.osborne.com. 

VISUAL BASIC 5 INTERACTIVE COURSE 

This interactive course covers object-oriented program- 
ming in Visual Basic 5, including forms, controls, data 
types, classes, graphics, data controls, and coverage of 
VB5's integration of ActiveX. The CD contains all ex- 
amples from the book, plus full source code. $49.99. 
Waite Group Press. Phone: 415-924-2575; 
800-428-5331. Fax: 415-924-2576. E-mail: 
lmann@waite.mcp.com. Web: http:// 
www.waite.com/waite. 

VISUAL BASIC PROGRAMMER'S JOURNAL 

VBPJ is the leading Windows programming magazine in 
the world. It includes several columns focused toward the 
beginning VB programmer, as well as in-depth how-to 
articles, product reviews, tips and tricks, and downloadable 
code each month. $27.95 per year. $65 for three years. 
Monthly. 

Fawcette Technical Publications. Phone: 650- 
833-7100; 800-848-5523. Fax: 650-853- 
0230. Web: http://www.windx.com. 




Videotapes & CDs 



Interactive CDs and videotapes let you learn by 
doing, while offering advice along the way. These 
CDs and videotapes focus on the beginning pro- 
grammer, and some might offer additional train- 
ing materials. We've included a brief description 
and contact information for each. If you've used 
training materials you've found useful, tell us 
about them. Send the resource title and manufac- 
turer to vbpjedit@fawcette.com. 

MASTERING VISUAL BASIC 5 FUNDAMENTALS 

This interactive CD-ROM course is designed to take your 
programming skills and apply them to VB5. Developers 
will leam rapid application development (RAD) and how 
to develop custom solutions using VB. The CD-ROM also 
teaches developers how to access and modify databases 
and how to create effective user interfaces. $99.95. 
Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. E-mail: GO MSP. Web: 
http://www.microsoft.com. 

VBCD 

This monthly CD-ROM contains electronic versions of 
every VBPJ and BasicPro back issue, indexed for easy 
retrieval; the Catalog on Disk database; a comprehensive 



directory of third-party add-on products for the entire 
family of Microsoft development tools, including Visual 
Basic, Visual C++, Access, BackOffice, Visual FoxPro, 
and ActiveX controls; and code, sample applications, and 
shareware. $99.95 for a one-year subscription. 
Fawcette Technical Publications. Phone: 650- 
833-7100; 800-848-5523. Fax: 650-853- 
0230. Web: http://www.windx.com. 

VB FUNDAMENTALS VIDEOTAPES 

Learn VB from the ground up from VB Bootcamp instruc- 
tors. This seven-tape, seven-hour series teachesyou both 
elementary and sophisticated techniques. It includes a 
1000-page book, 30 days of faxed Q&A support, and a disk 
that contains exercises. $89.95 per tape. 
New Technology Solutions Inc. Phone: 203- 
239-6874; 800-362-0060. Fax: 203-239- 
7997. Web: http://www.vb-bootcamp.com. 
E-mail: newtech@world.std.com. BBS: 203- 
239-7230. 

VISUAL BASIC VIDEO TRAINING 

Professional trainers integrate audio, visual, and hands- 
on training in one learning experience. The Visual Basic 
course includes videos, workbooks, and data disks. Each 
video averages two hours of instruction. $89.95 pervideo. 
KeyStone Learning Systems Corp. Phone: 
801-375-8680; 800-748-4838. Fax: 801- 
373-6872. Web: http:// 
www.keylearnsys.com. E-mail: 
keystone@keylearnsys.com. 

VISUAL BASIC VIDEO TRAINING SYSTEM 

Softech's video training system consists of eight video- 
cassettes and a resource disk. The course explains the 
software in detail, from basic features to advanced pro- 
gramming. The course lasts up to 12 hours and is avail- 
able in PAL or NTSC television standards. $599. 
Softech International Ltd., United Kingdom. 
Phone: 44-0268-566535. Fax: 44-0268- 
565009. Web: http://www.softech.com. 
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Listed here are only a few of the courses available 
for the beginning VB programmer. We offer a brief 
description and contact information for each com- 
pany. Some companies also offer more advanced 
training in VB and other programming topics. If 
you've participated in training or conferences, 
we'd like to hear about it. Send e-mail to 
vbpjedit@fawcette. com and give us a briefreview. 

APPLICATION DEVELOPERS TRAINING 
COMPANY (APPDEV) 

AppDev has a two-day course that provides an introduc- 
tion to Visual Basic as well as intermediate and advanced 
courses. Weekly sessions are held nationwide, and onsite 
training is available. $695-$1495. 
Minneapolis, Minnesota. Phone: 612-943- 
1363; 800-578-2062. Fax: 612-942-8452. 
E-mail: info@appdev.com. Web: http:// 
www.appdev.com. 
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BATKY-HOWELL 

"Visual Basic5.0 Programming" teaches general program- 
ming concepts of Visual Basic 5.0 and the Visual Basic 
environment. Topics include controls and properties; man- 
aging projects; creating the user interface; debugging; 
working with forms and custom controls; built-in objects 
and collections; working with strings, dates, and advanced 
language features; and dialogs and file processing. The 
five-day course requires programming experience in an- 
other language. $1625. Call for availability. 
Englewood, Colorado. Phone: 303-689- 
9090; 800-868-2202. Fax: 303-689-9904. 
Web: http://www.batky-howell.com. 

TRAINING ASSOCIATES 

"Introduction to Programming with Visual Basic 5" dis- 
cusses VB5 features that programmers can use to create 
Windows applications with advanced capabilities. Stu- 
dents will learn programming fundamentals as well as 
create effective graphical user interfaces (GUIs). They 
will also learn how to manipulate data through text files 
and databases. The course provides 12 self-paced lessons 
that "step" you through programming in VB5. It is de- 
signed for those with little or no programming experi- 
ence. All courses are held online, with scheduled live 
chats and instruction. Call for pricing and availability. 
Mesa, Arizona. Phone: 602-649-271 1 . Web: 
http://www.trainingassociates.com. E-mail: 
dave@trainingassociates.com. 

DB BASICS INC. 

"Visual Basic 5.0 Fundamentals" is a two-day course 
designed to introduce students to the Visual Basic envi- 
ronment. Students are given step-by-step instructions on 
how to paint forms, add code, and create executables. 
Students are introduced to the Basic language and shown 
how to use the debugger. It requires some previous 
knowledge of programming experience with Windows. 
Call for pricing and availability. 
Morrisville, North Carolina. Phone: 919-380- 
7252; 800-646-6490. Fax: 919-319-9492. 
Web: http://www.dbbasics.com. 

DEVELOPMENTOR 

"Essential Visual Basic" is a five-day course that teaches 
you how to design, code, test, and distribute VB applica- 
tions. The course aims to give you a working knowledge 
of the most important aspects of large-scale project devel- 
opment, such as error trapping, database access, report 
generation, and effective strategies for managing large- 
scale software projects. $1995. Call for availability. 
Torrance, California. Phone: 310-214-7800. 
Fax: 310-214-7803. Web: http:// 
www.develop.com. 

FAWCETTE TECHNICAL PUBLICATIONS 

FTP has a number of conferences for the Visual Basic 
developer. Visual Basic Insiders' Technical Summit 
(VBITS) '98 is for the hard-core elite of the Windows 
community, all in one place sharing information and 
learning new technologies that shape the industry. FTP 
also sponsors NT Enterprise Summit '98, Intranet Solu- 
tions '98, and VB Jump Start, a two-day seminar on 
modern object-oriented programming in Visual Basic 
5.0. Call orvisit the Web site for more information and an 
advance registration kit. 

Palo Alto, California. Phone: 650-833-7100; 
800-848-5523. Fax: 650 -853-0230. Web: 
http://www.windx.com. 

INSTEP TECHNOLOGIES 

InStep Technologies provides a variety of courses on 
Visual Basic and object-oriented design. Send e-mail for 



prices and schedules. 

Pleasanton, California. Phone: 510-426- 
941 1 . Web: http://www.insteptech.com. E- 
mail: deborahk@insteptech.com. 

LEARNING TREE INTERNATIONAL 

Learning Tree offers a variety of training courses for 
Visual Basic developers. Classes include "Hands-On Vi- 
sual Basic for Enterprise Applications" and "Hands-On 
Visual Basic: Business Solutions in Windows." Call or 
check the Web site for more information. 
Reston, Virginia. Phone: 800-843-8733; 703- 
709-9019. Fax: 800-709-6405. Web: http:// 
www.learningtree.com. E-mail: 
uscourses@learningtree.com. 

MICRO ENDEAVORS INC. 

"Fundamentals of Microsoft Visual Basic" is intended for 
novice programmers and programmers migrating to Vi- 
sual Basic from procedural languages such as Basic, C, 
COBOL, and FORTRAN. The course teaches how to create 
an application in VB, work with forms, debug, and work 
with controls. Call for pricing and availability. 
Upper Darby, Pennsylvania. Phone: 610-499- 
4680; 800-331-9434. Fax: 610-449-4757. 
Web: http://www.microendeavors.com. 

NEW TECHNOLOGY SOLUTIONS INC. 

"VB Bootcamp" is a four-day course designed to take you 
from the fundamentals of VB to advanced topics. On-site 
training is also available. 

North Haven, Connecticut. Phone: 203-239- 
6874; 800-362-0060. Fax: 203-239-7997. 
Web: http://www.vb-bootcamp.com. 
E-mail: newtech@world.std.com. BBS: 203- 
239-7230. 

QUICKSTART TECHNOLOGIES 

"Mastering Microsoft Visual Basic 5.0 Fundamentals" 
provides necessary intermediate-level skills to develop- 
ers new to Microsoft Windows-based programming. At 
course completion, students will be able to write solid 
event-driven code, create standalone, multiform applica- 
tions, create an effective interface, and access and modify 
a database. Call for pricing and availability. 
Newport Beach, California. Phone: 714-476- 
7575; 800-326-1044. Fax: 714-476-7576. 
Web: http://www.quickstart.com. 




User groups give you the opportunity to meet with 
other Visual Basic programmers in your geo- 
graphical area to talk about development issues. 
We regularly update this information on The 
Development Exchange athttp:/www. windx. com. 
From the home page, select User Groups under 
the Community heading. Users outside the United 
States can search by country; users within the 
United States can enter a zip code to find the 
nearest user group. If you start anew group, or if 
you notice an error in your group 's listing, please 
send additions or corrections to User Group Edi- 
tor, Fawcette Technical Publications, 209 
Hamilton Avenue, Palo Alio, CA 94301-2500; fax 
them to 650-853-0230; or send Internet e-mail to 
epeterson@fawcette.com. (SIG stands for Special 
Interest Group.) 



AUSTRALIA 

Australian Visual Basic User Group 

P.O. Box 1 363, Doncaster East Delivery 
Centre, Victoria, Australia 3109. Phone: 
61 3-9623-3262. E-mail: ansett_oa@msn.com. 
Ansett Australia — VB 
Information Technology, 3/ 489 Swanston 
Street, Melbourne, Victoria, 3000. Phone: 
613-9877-5969. Contact: Mark Henry. 
Australian Visual Basic User Group 
P.O. Box 3328, Rundle Mall, Adelaide SA, 
5000. Phone: 618-8212-3688. Fax: 618- 
9231-8834. E-mail: avbugsa@regional.net.au. 
VB User Group 

Level 5, 521 Toorak Rd., Toorak, 3142. 
Phone: 613-827-0144. Contact: Stephen 
Greiger. 

BRAZIL 

Forum Access 

Rua Camargo, 543, Sao Paulo. Phone: 55- 

1 1 -867-9926. E-mail: 

daniel@forumaccess.com. 

Web: http://www.forumaccess.com. Contact: 

Daniel Burd. 

CANADA 

Big Blue and Cousins — VB 

Victoria, British Columbia. Phone: 604-382- 
3934. 

Calgary Visual Basic User Group 

3 1 00- 1 50 6th Ave SW, Calgary, Alberta, 
T2P 4M5. Phone: 403-234-2929. Contact: 
Jean Paradis. 

Edmonton VB/Access Developers SIG 

Nisku, Alberta. Phone: 403-955-3065. 
London Life Visual Basic User Group 

255 Dufferin Avenue, London, Ontario, N6A 
4K1 . Phone: 519-432-2000 x4429. Fax: 
519-432-3862. Contact: Stephen Baldock. 
Toronto VB User Group 
3555 Don Mill Road, Suite 6-1 705, North 
York, Ontario, M2HE 3N3. Phone: 416-499- 
1978. Fax: 41 6-499-1 681 . E-mail: 
mrsheep@visualbyte.com. Contact: Dwayne 
Lamb. 

Toronto Windows User Group 

6327 Atherley Crescent, Mississaugua, 
Ontario, L5N 2J1. Phone: 416-826-0320. 
Contact: Don Roy. 

Visual Basic Users of Nova Scotia 

Enfield, Nova Scotia. Phone: 902-883-1010. 
Fax: 902-883-8586. 
Winnipeg PC User Group 

61 Amundsen Bay, Winnepeg, R3K 0V1 . 
Phone: 204-831-7163. Contact: Daryl Draeger. 
Web: http://www.wpcusrgep.org/ 
~ddraeger/ vbsig . html . 

IRELAND 

IVBUG (The Irish Visual Basic Users 
Group) 

c/o Carmichael House, 60 Lower Baggot 
Street, Dublin, 2. Phone: 353-1-676-2240. 
Fax: 353-1-676-2447. Contact: Donal P. 
Higgins. 

GERMANY 

IIT Fachbereich Visual Basic 

Gouleystrasse 85, 52146 Wurselen. Phone: 
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49-2405-855-31 . Fax: 49-2405-855-41 . E- 
mail: iit-institut@msn.com; 100042,445. 

JAPAN 

Visual Basic User Group Japan 

Takadanobaba 1 1 03 Nagtani Mansion 
Shinjuku, Tokyo, Japan. Web: http:// 
www.vbug.or.jp. Phone: 80-3-3203-7744. 
Fax: 81-3-3203-7704. E-mail: 
yito@zest.co.jp. Contact: Yukiko Ito. 

MEXICO 

VBUG Mexico 

Torres Adalid 707-302. Col. Del Valle, DF 
03100. Phone: 525-687-0318. Fax: 525- 
669-2167. Contact: Alberto Curiel. E-mail: 
acuriel@tagol .acnet.net. 

SOUTH AFRICA 

Durban Visual Basic User Group 

E-mail: garytimm@lia.co.za. Contact: Gary 
Timm. 

UNITED KINGDOM 

UK Visual Basic User Group 

1 5 Mount Way, Chepstow, Gwent, NP6 5NF. 
Phone & Fax: 44-0291-620720. Contact: Jeff 
Cabrie. 

UNITED STATES OF AMERICA 
ARIZONA 

Phoenix PC User Group— VB 

Phoenix. Phone: 602-980-7757. 

CALIFORNIA: 

Bay Area VB User Group 

Berkeley. Phone: 510-704-8200. Fax: 510- 
843-0174. 

Computer Experts of Northern CA 

Kentfield. Phone: 415-925-9880. 

Diablo Valley PC User Group 

Walnut Creek. Phone: 510-943-1367. 

Los Angeles VB User Group 

20540 East Arrow Hwy, Suite N2, Covina, CA 

91724. Phone: 818-332-8879. Fax: 818-331- 

5878. E-mail: 70372.3302@compuserve.com. 

Contact: Danish Kazi. 

Napa Valley PC User Group 

Napa. Phone: 707-257-2675. 

North Orange County Computer Club 

Orange. Phone: 714-645-5950. 

Orange County VB User Group 

Brea. Phone: 714-248-9702. 

Sacramento PC User Group 

Sacramento. Phone: 916-386-7965. 

San Diego VB User Group 

La Jolla. Phone: 619-459-5535. 

Santa Clarita Valley PC Group 

Canyon Country. Phone: 805-252-8852. 

COLORADO 

Windows on the Rockies User Group 

Highlands Ranch. Phone: 303-470-6504. 
Fax: 303-449-7525. 

CONNECTICUT 

Connecticut Visual Basic SIG 

North Haven. Phone: 203-239-6874. 
Danbury Area Computer Society 

Danbury. Phone: 203-791-2283. 



FLORIDA 

Manatee PC User Group Inc. — 
Quick VB 4.5 

Bradenton. Phone: 81 3-795-0601 . 
South Florida Database & 
Developers Group 

Coconut Grove. Phone: 305-238-8026. Fax: 
305-858-371 9. E-mail: 1 02263,2502. 
Space Coast PC User Group 
Cocoa. Phone: 407-254-1926. 
Tampa Bay Computer Society 
Clearwater. Phone: 813-443-4433. 

GEORGIA 

Atlanta PC User Group 

Atlanta. Phone: 404-393-1629. 
Atlanta Visual Basic User Group 

946 Glen Arden Way NE, Atlanta, GA 
30306. Phone: 404-874-6938. Fax: 404- 
872-1286. 

E-mail: andyd@mindspring.com. Web: http:// 
www.mindspring.com. Contacts: Andy Dean, 
Paul Goldsman. 

ILLINOIS: 

Chicago Corporate VB User Group 

Hoffman Estates. Phone: 708-952-3687. 
Visual Basic Developer Network 

Chicago. Phone: 708-430-2819. Fax: 708- 
430-3643. Web: http://www.vbdn.com. 
Contact: Jack Chemla. 

INDIANA: 

Indianapolis Computer Society— VB 

Indianapolis. Phone: 317-251-2003. 

KENTUCKY: 

VB User Group 

Louisville. Phone: 502-327-0333. Fax: 502- 
327-7418. 

MARYLAND: 

Capital PC User Group Inc.—VB 

Rockville. Phone: 301-762-9372. 
Maryland VB User Group 

College Park. Phone: 301-405-2977. Fax: 
301-314-9198. 

MASSACHUSETTS: 

New England Software Developers 
(NESOFTDEV) 

30 Clark St., Hoiden, MA 01520. Phone: 
508-829-2181 . Fax: 508-829-2441 . E-mail: 
BusTechDev@msn.com. Web: http:// 
www.bustechdev.com/ nesoftdev. 

MICHIGAN: 

Visual Developers Group Inc. 

2784 Page Ave., Ann Arbor, Ml 48104. 
Phone:313-973-7199. E-mail: 
vdggreg@aol .com . 

MINNESOTA: 

Twin Cities PC UG Inc.—VB 

Edina. Phone: 612-229-5850. 

MISSOURI: 
Kansas City 

Heartland User Group— VB 

Belton. Phone: 816-322-1845. 

St. Louis User Group for the PC 
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St. Louis. Phone: 314-458-9597. 
St. Louis VB User Group 

St. Louis. Phone: 314-984-8779. 

NEVADA: 

Las Vegas PC User Group— VB 

Las Vegas. Phone: 702-736-3788. 

NEW HAMPSHIRE: 

Boston Computer Society NH Chapter 

West Franklin. 

NEW JERSEY: 

Amateur Computer Group of NJ—VB 

Scotch Plains. Phone: 908-332-4659. 
VB Large User Group 

Englewood. Phone: 201-816-8900. Fax: 

201-816-1644. 

New Jersey 

Visual Basic User Group Inc. 

Pengastown Community Center, Elizabeth, NJ 
07206. Phone: 908-356-91 25. Fax: 908- 
469-7783. 

NEW YORK: 

Capital District Computer 
Enthusiasts— VB 

Albany. Phone: 518-346-9997. 
Capital District VB User Group 
Albany. Phone: 518-459-8536. 
Long Island PC User Group — VB 
Baldwin. Phone: 516-223-1761. 
Multi-Data Computer Systems/ 
VBNYPC 

147-51 72nd Rd #3F, Flushing, NY 1 1367. 
Phone: 718-261-0285. E-mail: 72644,1205. 
Visual Developer of NY User Group 

79 Springfield Ave., Rochester, NY 14609- 
3607. Phone: 716-288-5830. Fax: 716-482- 
7105. Web: http://www.frontiernet.net/ 
~softech/vduny/. 

OKLAHOMA: 

Oklahoma City PC User Group — VB 

Oklahoma City. Phone: 405-791 -0894. 
Tulsa Computer Society — VB 

Tulsa. Phone: 918-622-3417. 

OREGON: 

Portland Oregon VB User Group 

Hillsboro. Phone: 503-628-0705. Fax: 503- 
628-6005. 

PENNSYLVANIA: 

Philadelphia Area Computer Society 

Philadelphia. Phone: 215-951-1255. 
State College Area VB User Group 

c/o Blue Mountain Software, 208 W. 
Hamilton Ave., State College, PA 16810. 
Phone: 814-234-2417. 

TENNESSEE: 

Memphis PC User Group Inc. — VB 

Memphis. Phone: 901-375-4316. 

TEXAS: 

Houston Area League of PC Users 

Houston. Phone: 713-398-9424. 
Houston VB SIG 

321 5 Mulberry Hill Lane, Houston, TX 77084. 
Phone: 71 3-398-9042. Contact: Robert D. 
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User Tip 



VB4 16/32, VB5 
Level: Beginning 

CLEAR STRINGS QUICKLY 



This little-known trick lets you save CPU cycles when assigning a null 
string to a variable. Don't execute this code: 

a$ - "" 

Instead, use the vbNullString intrinsic constant: 

a$ - vbNull String 

Under VB5, this approach is two to three times faster than the 
standard method. However, you will find an increase in execution 
speed only if the assignment is within a tight loop. 

— Francesco Balena, Bari, Italy 

SEND YOUR TIP 

If it's cool and we publish it, we 'II pay you $25. If it includes code, please limit code 
length to 20 lines if possible. Be sure to include a clear explanation of what the 
technique does and why it is useful. Send it to vbpjedit@fawcette.com orFawcette 
Technical Publications, 209 Hamilton Ave., Palo Alto, CA 94301-2500. You can also 
fax it to 650-853-0230. Please include your mailing address. 



_ 



Thompson. 

North Texas PC User Group 

1112 Pueblo Dr., Richardson, TX 75080. 
VB Specialists 

Lewisville. Phone: 214-315-7528. 

UTAH: 

Utah Computer Society 

P.O. Box 5 1 08 1 1 , Salt Lake City, UT 84 1 5 1 . 
Phone: 801-521-7830. Web: http:// 
ww:ucs.org. BBS: 801-521-5009 

VIRGINIA: 

Richmond Access/VB Developers' 
Forum 

Glen Allen. Phone: 804-273-6244. Fax: 804- 
273-1804. 

WASHINGTON: 

Pacific Northwest PC User Group 

1 509 Queen Anne Ave., Seattle, WA 981 09. 
Phone: 206-285-1964 E-mail: 
rbuhrer@halcyon.com. 

WISCONSIN: 

Madison PC User Group — VB 

Madison. Phone: 608-231-2725. 
Milwaukee VB User Group 

1 4600 W. Fieldpointe Dr., New Berlin, Wl 
53151 . Web: http://www.execpc.com/ 
~vbm. 

Milwaukee Area Visual Basic Users' 
Group 

PO Box 28, Waterford, Wl 5381 5-0028. 
Phone: 414-534-51 81 . E-mail: 
7541 0.2203@compuserve.com. Contact: 
Arthur Edstrom. 



Fast, Free Product Information 



Advertiser 

Telephone 
Web site location 



ADDSoft 55 

800-229-0559 

http://www.addsoft.com 
Application Developers 
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800-578-2062 
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800-646-6490 
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Desaware 27 
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DevX-VB-Zone 7 
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FTP Books 84 
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Getting Started with Visual Basil 32 
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http://www.java-pro.com 

KeyStone Learning Systems Corporation 1 

800-7484838 

http://www.klscorp.com 
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800-848-5523 

http://www.windx.com 
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800-VB-DIRECT 

http://www.shersoft.com 
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615-726-8779 

http://www.transcender.com 
VBCD 4 

800-848-5523 
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800-848-5523 
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VB Jump Start 
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http://www.windx.com 
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Subsiriptions 
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To get immediate details on products 
advertised in this issue, you can simply 
log onto our online services - at 
http:/ /inf oasap.windx.com 

This will provide a list of direct links to 
this month's advertiser's Web site. 
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Third-Party Products 




ne of Visual Basic's 
most well-known and 



well-liked features is its ex- 
tensibility. If you can't find a tool you 

need in VB itself, chances are you can get it 
elsewhere and make it part of your VB 
menu or toolbox. Hundreds of third-party 
vendors sell development tools that you 
can use in conjunction with VB, either to 
enhance your development environment 
or to give your application enhanced func- 
tionality without writing all the code your- 
self. The tools that enhance your develop- 
ment environment are called add-ins; you 
access them from VB's Add-ins menu. The 
components that you can drop into your 
app to give it more functionality are called 
controls. VB3 supports Visual Basic custom 
controls (VBXs), while VB4 and VB5 sup- 
port OLE controls (OCXs), now known as 
ActiveX controls. 

Here is a list, as selected by VBPJ prod- 
uct reviewer and contributing editor Don 
Kiely, of some of the best third-party add- 
ons to help you get started with Visual 
Basic. He has included products that fea- 
ture a collection of tools, help you design 
your user interfaces, and help you access 
data. Many of these products are produced 
by vendors that have supported Visual Ba- 
sic since its infancy, back in 1991. But this 
list is just the beginning — it doesn 't even 
make a dent in all the add-on tools avail- 
able for Visual Basic. You can find more 
information on these and others in the 
Product Guide section of The Development 
Exchange, at http://www.windx.com. 

While FTP's intent is to provide the most 
accurate and comprehensive information 
possible, the manufacturers are ultimately 
responsible for the accuracy of data and 
product claims. We encourage you to contact 
them for further information. Please send any 
additions or corrections to this list to Listings 
Editor, Fawcette Technical Publications, 209 
Hamilton Avenue, Palo Alto, CA 94301-2500; 
fax them to 650S53Q230; or send Internet 
e-mail to epeterson@fawcette.com. 



Code Analysis & 
Documentation Tools 



NUMEGA FAILSAFE 

FailSafe is an Automatic Error Recovery System for 
Visual Basic. FailSafe intercepts program errors before 
they crash a program, keeping the program running. It 
then captures, records, and communicates the critical 
information needed to locate and resolve the cause of 
the errorback to the developer, support organization, or 
help desk. $299. 



http://www.windx.com 



NuMega Technologies Inc. Phone: 603-578- 
8400 or 800-4- VBASIC. Fax: 603-889-1 135. 
Web: http://www.numega.com. E-mail: 
info@numega.com. 

VBTRACE32 

VBTrace provides a list of the procedures executed by a 
VB program in the order in which they are executed. It 
helps you trace program flow from procedure to proce- 
dure or through idle time events such as SetFocus or 
input from the keyboard. Download VBTrace from http:// 
feenix.metronet.com/-cstuart/. 
Chuck Stuart. Web: http:// 
feenix.metronet.com/ ~cstuart/. 

VIDEOSOFTVSDOCX 

VSDOCX automatically documents ActiveX controls. 
When you create controls using Visual Basic 5.0 or 
Visual C++, VSDOCX will create the user documenta- 
tion and help files for you. You can also document 
controls downloaded from the Web. It produces a docu- 
ment that is ready to print using any word processor or 
Web browser, and a complete context-sensitive, in- 
dexed, cross-linked help file. $249. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.vicleosolT.com. E-mail: 
info@videosoft.com. 



Data Access & 
Report Writers 



CRESCENT DBPAK 

Crescent DBPak consists of three tools. The Custom 
Data control binds any structured data (serial data, 
HTML, flat files, or database) to VB's data-aware con- 
trols. Use the SaveAs control to output the results of a 
query into common file types such as Access or HTML. 
The Master/Detail control simplifies the creation of 
master/detail presentations of data from a database. 
DBPak also includes EnQuiry, a tool for rapid database 
form and query development. $199. 
Crescent Division of Progress Software Corp. 
Phone: 617-280-3000 or 800-35-BASIC. Fax: 
617-280-4025. Web: http:// 
crescent.progress.com. E-mail: 
crescent@progress.com. 

DATA WIDGETS 

This set of six data-bound ActiveX controls lets develop- 
ers design front ends to Windows and Web-based data- 
base applications. The Data Grid control is an editable 
bound grid that allows you to edit an entire recordset on 
screen without writing any code. The Data Combo 
custom control is a combo box that you can use to 
display/edit a field value from one recordset while pro- 
viding a drop-down list of field values from another set. 
The DataOptionSet custom control allows you to use 3-D 
options buttons that you can bind to a database field. 
The Enhanced Data Control (EDC) is an enhanced 
version of the Data control that ships with Visual Basic. 
$295. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661. Web: http://www.shersofr.com. 

DBCOMPLETE 

dbComplete is a database toolset that allows developers 
to build database applications with minimal code. The 
collection of components includes the Outline Data 
Grid, which can present data from multiple queries and 
heterogeneous database systems in an Explorer-like 
outline format; and the Intelligent Data Source Control, 



an ODBC-based data source control that can manipu- 
late complex master-detail data. $299. 
Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

MYDATA CONTROL 

MyData Control is a customizable Data Source Control 
(DSC) for Microsoft Visual Basic 4.0. MyData Control 
allows you to gain access to all data-bound controls with 
any data source or database management system 
(DBMS) accessible from Visual Basic 4.0. Instead of 
retrieving data from the Jet Engine, MyData Control 
fires special Visual Basic events that let you provide 
your own data source, and then it manages and coordi- 
nates all data-aware controls that are bound to it. $149.95. 
Apex Software Corp. Phone: 41 2-681 -4343 
or 800-858-2739. Fax: 412-681-4384. Web: 
http://www.apexsc.com. E-mail: 
sales@apexsc.com. 

SEAGATE CRYSTAL REPORTS 

Crystal Reports is a client/server report writer that 
allows you to design a variety of reports (or database 
applications with reporting) and distribute them through 
popular communication infrastructures, including the 
Internet. $195 Standard; $395 Professional. 
Seagate Software, IMG. Phone: 604-681 - 
3435 or 800-877-2340. Fax: 604-681-2934. 
Web: http://www.img. seagatesoftware.com. 
E-mail: sales@crystalinc.com. 

TOTAL ACCESS STATISTICS 

Total Access Statistics lets you statistically analyze 
Microsoft Access 2.0 data with all output in Access 
tables. It performs field analysis, group analysis, re- 
gressions, field comparison, cross-tabulations with Chi 
Square, probability evaluation of test values, and non- 
parametric analysis. It saves scenarios for future use. 
Total Access Statistics includes interactive and pro- 
grammatic interfaces. $199 per user. 
FMS Inc. Phone: 703-356-4700. Fax: 703- 
448-3861. Web: http://www.fmsinc.com. E- 
mail: sales@fmsinc.com. 

VIDEOSOFT VSREPORTS 

VSREPORTS allows you to print reports created in 
Microsoft Access without having Access or its runtime 
DLLs installed on the user's machine. It permits you to 
use Access to create your reports and then print them 
using Visual Basicorany ActiveX container. VSREPORTS 
re-creates Access reports, reproducing the exact posi- 
tioning of fields and page breaks, fonts, colors, sorting, 
and filtering into groups and sections, just as in the 
original report. VSREPORTS supports all Access Report 
writer features, including Visual Basic for Applications 
(VBA) expressions, aggregated fields, watermarks, and 
multicolumn and parameterized reports. You can output 
reports to an HTML file to be published on the Web. $149. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
i nfo@videosoft.com . 



Development 
Environment Tools 



INSTALLSHIELD EXPRESS 

InstallShield Express can create a singte-fne, sett-ex- 
tracting executable containing your installation pro- 
gram and application all-in-one. You can then place that 
file on the Web or anywhere else for convenient distri- 
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bution. Your users simply download and open the single 
file to launch the InstallShield Express installation. 
$245. 

InstallShield Software Corp. Phone: 847-240- 
91 1 1 or 800-374-4353. Fax: 847-240-9120. 
Web: http://www.installshield.com. E-mail: 
info@installshield.com. 

SPEED FERRET FOR VISUAL BASIC 

SPEED Ferret for VB5 allows you to search all properties 
of objects for a text string and then simultaneously view 
and print out all occurrences, make changes to selected 
occurrences, test the changes, and undo unwanted 
changes. $129. 

Black Moshannon Systems. Phone: 814-345- 
5657. Fax: 814-345-5661 . Web: http:// 
www. moshannon.com. 

SPYWORKS PRO 

SpyWorks allows you to do anything in Visual Basic that 
is possible with other languages, by providing features 
such as advanced subclassing, windows hooks, call- 
backs, and debugging tools. 16- and 32-bit ActiveX 
edition for Visual Basic and other ActiveX containers. 
$249. 

Desaware. Phone: 408-377-4770. Fax: 408- 
371-3530. Web: http://www.desaware.com. 
E-mail: support@desaware.com. 

VBASSIST 

VBAssist is a set of 15 productivity tools that integrate 
into the Visual Basic 5.0 development environment. 
The Project Control View enables you to view the status 
of your Visual Basic projects and project groups. Prop- 
erty Tips is a design-time tooltip containing user-de- 
fined subsets of a control's properties at the mouse 
pointer. The Control Alignment Assistant creates a 
floating, dockable toolbar for convenient screen place- 
ment. $159. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

VISUAL SOURCESAFE 

The Visual SourceSafe repository offers a secure envi- 
ronment for Web content, source code, or any other type 
of file that is associated withaproject. Visual SourceSafe 
stores files in a secure project repository that is main- 
tained by a security system. The system keeps your files 
out of harm's way, though they're still accessible to 
authorized users. $499. 

Microsoft Corp. Phone: 800-621 -7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 

WISE INSTALLATION SYSTEM 

The Wise Installation System is a Windows-based in- 
stallation editor that creates installation programs for 
Windows, Windows 95, and Windows NT. It comes with 
both Winl6 and Win32 versions. It creates shortcuts/ 
shell links for use with Windows 95, handles nested 
components, and has a full uninstaller. $195 Standard; 
$595 Enterprise. 

Wise Solutions Inc. Phone: 31 3-981 -4970 or 
800-554-8565. Fax: 313-981-9746. Web: 
http://www.wisesolutions.com. E-mail: 
sales@wisesolutions.com. 



Grid and 

Spreadsheet Controls 



FORMULA ONE 

Formula One is an Excel-compatible spreadsheet com- 
ponent that offers users a familiar interface while 
maintaining developer control and flexibility. Features 
include a built-in workbook designer, international 
language support, the ability to write spreadsheets to 
HTML, Read/Write Excel files, ODBC, Uniform Data 



Transfer support, and Print Preview. $199. 
Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

SPREAD 

Spread offers more than 250 properties, 32 actions, and 37 
methods to create entry grids, toolbars, spreadsheets, and 
multiple or single select list boxes; or to read and display 
large amounts of data. Spread includes the Spread De- 
signer — a design-time, WYSIWYG interface tool — which 
lets you customize the control with your mouse using 
property pages. It also generates Visual Basic code. $299. 
FarPoint Technologies. Phone: 919-460-4551 or 
800-645-5913. Fax: 919-460-7606. Web: 
http://www.Fpoint.com. E-mail: 
FarPoint@Fpoint.com. 

TRUE DBGRID PRO 

True DBGrid Pro is the enhanced, full-featured version 
of DBGrid that ships with Visual Basic. It is a data- 
aware ActiveX grid that manages all database opera- 
tions. True DBGrid Pro 5.0 includes data presentation 
and user interface features, and it provides 16-bit and 
32-bit OCX support. $299.95. 
Apex Software Corp. Phone: 41 2-681-4343 
or 800-858-2739. Fax: 41 2-681-4384. Web: 
http://www.apexsc.com. E-mail: 
sales@apexsc.com. 

VIDEOSOFTVSFLEX 

VSFLEX is a flexible data-analysis tool. By adding your data 
to the vsFlexArray control and setting a couple properties, 
your users can dynamically pivot the data between col- 
umns. All the data is automatically sorted, merged, and re- 
arranged. The OCX version supports Microsoft Visual 
Basic 4.0 and 5.0, Microsoft Access 95 and 97, Visual 
FoxPro, and Microsoft Visual C++ 4.0 and 5.0. VSFLEX also 
includes vsFlexString, a control that allows you to find and 
replace complex string patterns. $249. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
info@videosoft.com. 



Interface Tools & 
Utilities 



ACTIVELISTBAR 

ActiveListBar is a navigation control that adds the look 
of Microsoft Outlook to your application. It uses a 
system of sliding groups, each identified by a header. 
ActiveListBar is fully ActiveX-compliant and supports 
Internet operation through the inclusion of special URL 
properties for graphics and sound resources. $109. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

ACTIVETHREED 

ActiveThreed is a set of seven 32-bit ActiveX controls 
that allow you to give the most prevalent elements in 
applications an Internet/intranet look and feel. 
ActiveThreed provides active features such as marquee 
captions, graphics animation, and transparent back- 
grounds. $139. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661 . Web: http://www.shersoft.com. 

CALENDAR OBJX 

The Calendar package includes three controls: the 
fpCalendar control is a standalone calendar that you 
can customize to support different formats and appear- 
ances; the fpClock control lets you provide customized 
digital and analog clocks in your application; and the 



fpPoster control lets you display pictures in your appli- 
cation. $159. 

FarPoint Technologies. Phone: 919-460-4551 
or 800-645-591 3. Fax: 91 9-460-7606. Web: 
http://www.Fpoint.com. E-mail: 
FarPoint@Fpoint.com. 

CALENDAR WIDGETS 

Calendar Widgets is a set of four controls for use in 
developing any Windows-based application that needs to 
visually display, select, and manage dates and times. It 
includes versions for 16-bit Visual Basic custom controls 
and 16- and 32-bit OLE controls. It includes MonthView, 
YearView, DayView, and DateCombo controls. $139. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

DESIGNER WIDGETS 

Designer Widgets 2.0 from Sheridan Software Systems 
provides versions for 16-bit Visual Basic custom con- 
trols and 16- and 32-bit ActiveX controls. The Dockable 
Toolbar control lets you create floating toolbars of but- 
tons that the user can "dock" to the top, sides, or bottom 
of a Multiple Document Interface (MDI) form. The 
FormFX control gives you control over the appearance 
and behavior of your forms. The IndexTab control lets 
you design efficient dialogs using the index tab meta- 
phor to group collections of related options, and the 
Notebook control allows you to easily create applica- 
tions utilizing the notebook metaphor. $139. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661 . Web: http://www.shersoft.com. 

FIRST IMPRESSION 

First Impression is a charting component that includes 
more than 35 chart types, including two-dimensional and 
three-dimensional options. Features include support for 
uniform data transfer, localizable ActiveX controls, and a 
language-specific spreadsheet and charting controLAvail- 
able as 16-bit and 32-bit OCX and DLL. $199. 
Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

GRAPHICS SERVER 

Graphics Server adds client-side and server-side graph- 
ing to your Web pages. It allows you to add interactive 
graphs to the numerical data on your Web page. Graph- 
ics Serveralso offers multiple platforms, multiple hosts, 
multiple interfaces, and an extensive range of graphs, 
charts, and statistical functions. $349. 
Pinnacle Publishing Inc. Phone: 206-625-6900 
or 800-788-1900. Fax: 206-251-5057. Web: 
http://www.pinpub.com. E-mail: 
ppi@pinpub.com. 

TAB 

Tab is a flexible tab control. You can choose from seven 
predefined appearance styles: Notebook, Notecards, 
Notched, Worksheet, Personal Organizer, Property 
Pages, and Traditional. Other features include the abil- 
ity to define the number of tabs per row and the number 
of rows of tabs; position tab headers on the top, bottom, 
left, or right side; and insert and align pictures in the 
tab headers. $69 Standard; $129 Pro. 
FarPoint Technologies. Phone: 919-460-4551 
or 800-645-591 3. Fax: 91 9-460-7606. Web: 
http://www.Fpoint.com. E-mail: 
FarPoint@Fpoint.com. 

VIDEOSOFT VS-OCX 

VS-OCX contains three controls. The vsElastic control 
automatically resizes all the controls on your form when 
the user stretches it. The vsIndexTab control presents 
several screens worth of data in the space of one by 
using notebook-style tabs like those in Word or Excel. 
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When you resize the form, the contents of each tab 
resize automatically. The vsAwk string parser control 
slices and dicesyour strings automatically and includes 
an expression evaluator that supports variables. $99. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
vsflex@videosoft.com. 

VIDEOSOFT VSVIEW 

VSVIEW contains several controls and components. The 
vsPrinter control allows you to print paragraphs and 
text thatwill wrap automatically. With the DataReporter, 
your users can create data-aware reports by dragging 
and dropping database fields from a recordsource that 
you provide. Your users can also customize the lookand 
feel of the report themselves. VSVIEW also provides 
print-preview capabitilies, with the ability to view the 
document at customizable zoom levels and then send it 
to the printer by toggling a single property. Also in- 
cluded in VSVIEW are a drawing control, a virtual desk- 
top control, and a control that lets you customize the 
look of your forms and controls. $249. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
vsflex@videosoft.com. 



Tool Collections, 
Multipurpose Tools, & 
Code Libraries 



DEVPARTNER FOR VISUAL BASIC 

DevPartner for Visual Basic is a suite of automatic 
source-code and error-analysis tools for Visual Basic 
development. It consists of four debugging tools for 
Visual Basic: CodeReview, SmartCheck, TrueTime, and 
FailSafe. $549. 

NuMega Technologies Inc. Phone: 603-578- 
8400 or 800-4-NUMEGA. Fax: 603-889- 
1 135. Web: http://www.numega.com. E- 
mail: info@numega.com. 

MEGA PACK 

Mega Pack, a package of 22 custom controls, includes 
Alarm, BarCode, BmpList, Joystick, Menu, Percent, 
Rotate text, Sound, Label, LED, MSSlot, Tips, and Wave. 
Visual Basic source code is available. $179; $399 with 
source code. 

Mabry Software. Phone: 206-634-1443 or 
800-99-MABRY. Fax: 206-632-0272. Web: 
http://www.mabry.com. E-mail: 
mabry@mabry.com. 

MICROSOFT OFFICE 97 DEVELOPER 
EDITION 

Microsoft Office 97 Developer Edition is designed spe- 
cifically for professional developers. It contains all the 
applications included in Office 97 Professional Edi- 
tion — Excel, Access, Word, PowerPoint, and Outlook — 
along with additional tools for development and distri- 
bution. It includes printed developer documentation, 
Access and Visual SourceSafe integration tools, Setup 
Wizard, Microsoft Replication Manager, and ActiveX 
controls. $799. 

Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 

OLETOOLS 

OLETools offers 50 32-bit ActiveX controls designed to 
help you build any type of application. It includes tools 
for interface building, multimedia, and time manage- 
ment. Some of the controls include label, calendar, 
button, picture, and timer controls. $229. 
BeCubed Software. Phone: 770-720-1077. 
Fax: 770-720-1078. Web: http:// 
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www.becubed.com. E-mail: 
sales@becubed.com. 

POWERPAK PRO 

PowerPak Pro is a suite of professional Visual Basic 
tools, providing data-aware controls, source code man- 
agement tools, and deployment tools. The products 
include QuickPak Professional, RADBench, and XRef 
from Crescent; VideoSoft VSView/OCX and VideoSoft 
VS-OCX from VideoSoft; and True DBGrid from Apex. 
$699. 

Crescent Division of Progress Software Corp. 
Phone: 617-280-3000 or 800-35-BASIC. Fax: 
617-280-4025. Web: http:// 
crescent.progress.com. E-mail: 
crescent@progress.com. 

QUICKPAK VB/J++ 

QuickPak VB/J++ is a toolset of ActiveX components for 
developing applications using VB or J++. It contains more 
than 400 functional routines and sample code. $249. 
Crescent Division of Progress Software Corp. 
Phone: 617-280-3000 or 800-35-BASIC. Fax: 
617-280-4025. Web: http:// 
crescent.progress.com. E-mail: 
crescent@progress.com. 

SHERIDAN COMPONENTS SUITE 

Sheridan Components Suite 2.0 combines three ActiveX 
components in one package. Calendar Widgets is a set 
of reusable components for incorporating date-related 
and time-related information in your applications. Data 
Widgets 3.0 is a set of six ActiveX controls for designing 
front ends for your database applications. Designer 
Widgets 2.0 comprises components designed to give 
your application interfaces a state-of-the-art look and 
feel. $299. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIREC. Fax: 516-753- 
3661. Web: http://www.shersolt.com. 

STAMINA 

Stamina offers more than 250 functions. It includes 
sorting arrays and entire disk files; searching strings, 
arrays, files, and drives; CRC and checksum calcula- 
tions; and date format conversions. Stamina's func- 
tions are written in 32-bit assembly language and can 
be called directly from VB4, VB5, or any other OLE- 
aware 32-bit language. Many of the routines are ex- 
posed through a type library for Unicode awareness. 
Stamina comes with an online reference that has em- 
bedded links to Visual Basic sample programs demon- 
strating its routines. Full source code is available at 
additional cost. $199. 

MicroDexterity Inc. Phone: 734-453-5872 or 
888-891-0700. Fax: 734-453-8942. Web: 
http://www.microdexterily.com. E-mail: 
sales@mdxi.com. 

VBTOOLS 

VBTools offers 50 16-bit ActiveX controls. It includes the 
International control to enable text translation; the 
FlowCharting control to add flowchart capabilities to 
your program; and the 2D Slider control to provide a 
sliding mark within a two-dimensional area. It also 
includes button, label, and gauge controls. $129. 
BeCubed Software. Phone: 770-720-1077. 
Fax: 770-720-1078. Web: http:// 
www.becubed.com. E-mail: 
sales@becubed.com. 

VISUAL COMPONENTS STUDIO 

This suite of component software includes First Im- 
pression, Formula One, dbComplete, and VisualSpeller. 
All online documentation, example code, and demon- 
stration applications are included. $399. 
Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
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Training Tools 



MASTERING MICROSOFT OFFICE 97 
DEVELOPMENT 

Mastering Microsoft Office 97 Development teaches 
developers how to create Office 97-based solutions. You 
learn how to use Visual Basic for Applications (VBA) to 
take advantage of Office 97 object models and incorpo- 
rate ActiveX controls to create powerful, extended solu- 
tions. You will also learn how to use DAO to access data 
and integrate intranet technologies in documents. 
$99.95 

Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 

MASTERING MICROSOFT VISUAL BASIC 5 

Mastering Microsoft Visual Basic 5 provides profes- 
sional-level training with more than 40 hours of inter- 
active instruction on CD-ROM. It helps developers learn 
how to create custom solutions and build their exper- 
tise in database programming and ActiveX component 
creation. $99.95. 

Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 



Web and Internet 

Application 

Development 



FORMULA ONE/NET PRO 

This Internet spreadsheet component provides Web 
browsers with spreadsheet functionality. Use with 
Netscape Navigator 2.0 to embed workbooks in browser 
windows. Users can view and update workbook data, 
including numbers, text, and formulas. Charts remain 
live when you view them and update automatically as 
worksheet data changes. $79. 
Visual Components Inc. Phone: 91 3-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

INTERNET PACK 

Internet Pack contains 1 VBXs and 32-bit OLE controls 
that give your applications access to the Internet. The 
controls include GetHst, which translates host names to 
IP addresses and vice versa; ASocket, which gives you 
direct access to Windows Socket; Gopher; Mail; News; 
RAS; Time; and Whols. $129. 
Mabry Software. Phone: 206-634-1443 or 
800-99-MABRY. Fax: 206-632-0272. Web: 
http://www.mabry.com. E-mail: 
mabry@mabry.com. 

INTERNET TOOLPAK 

Internet ToolPak is a set of tools for creating applica- 
tions that give you and your users access to the re- 
sources of the Internet — without Internet protocol ex- 
pertise or low-level coding. It contains 16 ActiveX con- 
trols, more than two dozen sample programs, and an 
Internet Mail Wizard that leads you through creating 
applications that exploit Internet capabilities. $199. 
Crescent Division of Progress Software Corp. 
Phone: 617-280-3000 or 800-35-BASIC. Fax: 
617-280-4025. Web: http:// 
crescent.progress.com. E-mail: 
crescent@progress.com. 
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his glossary of key pro- 
gramming terminology 



should serve as a starting point 
as you learn Visual Basic. 

The glossary is updated regularly on The 
Development Exchange Web site, at http:// 
www.windx.com. Type VBTERMS in the 
Locator* field. If a term is not listed here, or 
for a more detailed explanation, consult 
the Programmer's Guide and online help 
that come with Visual Basic. Also, you can 
find a number of dictionaries on the market 
that are entirely devoted to computer-related 
terminology. 




Abs Function: Returns the absolute value of n. 

Activate Event: Occurs when a form becomes the 
active window. 

ActiveX Control: Microsoft uses ActiveX as an 
umbrella term to encompass any technology for develop- 
ing Internet-related applications. There are two types of 
ActiveX controls: traditional OLE controls, which Microsoft 
calls desktop ActiveX controls, and Internet ActiveX con- 
trols, which are optimized for Internet download. 

ANSI: Acronym for the American National Standards 
Institute. ANSI-standard programming languages con- 
form to ANSI recommendations designed to eliminate 
variations that could cause problems in transporting 
programs from one type of computer system to another. 

Application Programming Interface 
(API): An interface consisting of functions, messages, 
data structures, data types, and statements you use to 
create apps that run under Windows. 

Argument: A value that is passed to a subroutine, 
function, or method that affects the way a task is per- 
formed. 

Array: A list of variables, all with the same name and 
data type. 

Asc Function: Returns a numeric value that is the 
ANSI code for the first character in a string expression. 

ASCII: Acronym for American Standard Code for Infor- 
mation Interchange. A coding scheme that assigns nu- 
meric values to letters, numbers, punctuation marks, and 
certain other characters on a keyboard. 

Atn Function: Returns the arctangent,in radians, of n. 

Back End: The database to which information pre- 
sented by the front-end app connects. 
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Bound Control: A control that can be linked to a 
data control at design time and made to display that data 
in the current record. Text boxes, check boxes, image 
controls, labels, and picture boxes are all bound controls. 

CCur Function: Converts any valid expression to 
Currency. 

CDbl Function: Converts any valid expression to 
Double. 

Change Event: Indicates that the contents of a 
control have changed. 

Choose Function: Selects and returns a value 
from a list of arguments. 

Chr Function: Returns a one-character string 
whose ANSI code is the argument. 

Clnt Event: Converts anyvalid expression to Integer. 

Class: Each object in Visual Basic is defined by a 
class, which defines the characteristics of each object. 

Class Module: Used to create your own objects. 
Class modules can include code for methods and prop- 
erties, but they can't have their own events. Class 
modules have no visible user interface. 

Click Event: Occurs when the user presses and 
then releases a mouse button over an object. May also 
occur when the value of a control is changed. 

CLng Event: Converts anyvalid expression to Long. 

Combo Box: Combines the features of a text box 
and a list box. Used to give the user the choice of typing 
in the text box portion or selecting an item from the list 
portion of the control. 

Command Function: Returns the argument 
portion of the command line that launches VB. 

Compiler: Translates code into an executable file. 

Component Object Model (COM): 

Microsoft's infrastructure for code modules that are 
independent of programming languages and computer 
platforms. OLE is a high-level COM implementation. 

Control : A tool for creating objects on a VB form. Most 
controls are used to create user interface elements, 
such as command buttons, image boxes, and list boxes. 

Cos Function: Returns the cosine of the angle n. 

The angle n is expressed in radians. 

CreateObject Function: Creates an OLE Auto- 
mation object. 

CSng Function: Converts any valid expression to 
Single. 

CStr Function: Converts any valid expression to 
String. 

CurDir Function: Returns the current path for 
the specified drive. 



Custom Control: A reusable component that pro- 
vides a discrete piece of funtionality that you do not have 
to code from scratch. 

CVar Function: Converts any valid expression to 
Variant. 

CVDate Function: Converts an expression to a 
Variant of VarType 7. 
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Data Control: Provides buttons that allow you to 
move through records in a database. 

Date Add Function: Returns a Variant containing 
a date to which a specified time interval has been added. 

DateDiff Function: Returns a Variant containing 
the number of time intervals between two specified dates. 

Date Function: Returns the current date from the 
system clock. 

DatePart Function: Returns a specified part of a 
given date. 

DateSerial Function: Returns the date serial for 
a specific year, month, and day. 

DateValue Function: Returns the date repre- 
sented by a String argument. 

Day Function: Returns awholenumberrepresent- 
ing the day of the month. 

DblClick Event: Occurs when the user presses 
and releases a mouse button and presses and releases 
it again over an object. 

DDB Function: Returns the depreciation of an asset 
for a specific period using the double-declining balance 
method. 

Deactivate Event: Occurs before a different form 
becomes the active window. 

Debug: To detect, locate, and correct logical or syntac- 
tical errors in a program. 

Default Property: A property accessed when a 
value is assigned to an object and no property is specified. 
VB objects usually have a Default property. 

Design Time: Term describing changes you make to 
your program through VB when the program is not run- 
ning. Opposite of run time. 

Dir Function: Returns the name ofa file or directory 
that matches a specified pattern and file attribute. Also 
can return the volume label of a drive. 

DoEvents Function: Causes Visual Basic to yield 
execution so that Windows can process events. 

DragDrop Event: Occurs when a drag-and-drop 
operation is completed as a result of dragging a control 
over a form or control and releasing the mouse button. 
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DragOver Event: Occurs when a drag-and-drop 
operation is in progress. 

DropDown Event: Occurs when the list portion of 
a combo box is about to drop down. 

Dynamic Data Exchange (DDE): A mecha- 
nism supported by Windows that allows two applications 
to continuously and automatically exchange data. 

Dynamic Link Library (DLL): Allows develop 
ers to bind code to one of many executables at run time 
rather than at link time, creating an environment in 
which many applications can use the same code base. 

Encapsulation: Allows you to group subroutines 
and variables together in a class. 

Enterprise Edition: Version of VB for creating 
robust client/server apps. Includes all features of Profes- 
sional Edition plus Automation Manager, Component 
Manager, database management tools, and more. 

Environ Function: Returns the string associated 
with an operating system environment variable. 

EOF Function: Returns a value during file input 
indicating whether the end of a file has been reached. 

Err Function: Returns error status. 

Error Function: Returns the error message that 
corresponds to a given error code. 

Error Event: Occurs only as the result of a data access 
error that occurs when no VB code is being executed. 

Event Handler: Subroutine called directly from VB 
in response to events associated with a particular object. 

Event Procedure: Contains code that is executed 
when an event occurs, such as when the user presses a 
mouse button. 



: Something that happens that is associated with 
an object. For example, when the user presses the left 
mouse button over a button control. When an object's 
event occurs, VB calls the associated event handler. 

Exp Function: Returns the constant e raised to the 
power n. 

Field: One of several pieces of data that make up a record. 

FileAttr Function: Returns file mode or operating 
system file-handle information about an open file. 

FileDateTime Function: 

Returns a String indicating the date and time a specified 
file was created or last modified. 

FileLen Function: 

Returns a Long integer that indicates the length of a file 
in bytes. 

Floating Point: Mathematical operation based on 
a number expressed as a whole or a fraction, such as 1 .5 
or 3.421. 



Focus: Term used to describe the active window. 
Typed keys are directed to the window that has the focus. 

Form Module: Can contain textual descriptions of 
the form and its controls, including their property set- 
tings. Can also contain form-level declarations of con- 
stants, variables, and external procedures. 

Format Function: Formats a number, date, time, 
or string according to instructions contained in a format 
expression. 

FreeFile Function: Returns the next valid unused 
file number. 

Front End: The app used in front of all other apps. 
Upon startup of the front-end app, users see menus and 
icons that allow them to perform common tasks. 

Function: A subroutine that returns a value. 

FV Function: Returns the future value of an annuity 
based on periodic, constant payments and a constant 
interest rate. 



GetAttr Function: Returns an integer that indi- 
cates the attributes of a file, directory, or volume label. 

GetObject Function: Retrieves an OLE Automa- 
tion object from a file. 

Got Foe us Event: Occurs when an object receives 
the focus, either by user action such as tabbing to or 
clicking on the object, or by using the SetFocus method to 
change the focus in code. 

Graphical User Interface (GUI): An object- 
based screen display that lets the user manipulate a 
mouse to point and click on graphical representations of 
programs and files, rather than forcing you to type ar- 
chaic file and program names to perform basic opera- 
tions. Windows has a GUI, while DOS has a command- 
line interface. 

Handler: Aroutine to manage a common condition or 
operation, such as error recovery or data movement. 

Hex Function: Returns a string that represents the 
hexadecimal value of a decimal argument. 

Hour Function: Returns the hour portion of the 
specified time. 

IIF Function: Returns one or two parts depending on 
the evaluation of an expression. 

Independent Software Vendor (ISV): A 

non-Microsoft company that markets tools and compo- 
nents to developers. 

Input Function: Returns characters read from a 
sequential file. 

InputBox Function: Displays a prompt in a dialog 
box, waits for the user to input text or choose a button, 
and returns the contents of the text box. 



InStr Function: Returns the position of the first 
occurrence of a string within another string. 

Int, Fix Functions: Return the integer portion of 
a number. 

Intranet: The use of Internet technologies to link an 
organization's multiple information resources. 

Intrinsic: A control that HTML supports directly, with- 
out requiring VBScript for implementation. 

Intrinsic Control: A bound control that is con- 
stantly in your toolbox and cannot be removed. 

IPmt Function: 

Returns the interest payment for a given period of an 
annuity based on periodic, constant payments and a 
constant interest rate. 

IRR Function: Returns the internal rate of return for 
a series of periodic payments and receipts. 

IsDate Function: Returns a value indicating 
whether a Variant argument can be converted to a date. 

IsEmpty Function: Returns a value indicating ifa 
Variant variable has been initialized. 

IsNull Function: Returns a value indicatingwhether 
a Variant contains the Null value. 

IsNumeric Function: Returns a value indicating 
whether a Variant variable can be converted to a numeric 
data type. 
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KeyDown Event: Occurs when the user presses a 
key while an object has the focus. 

KeyPress Event: Occurs when the user presses 
and releases an ANSI key. 

KeyUp Event: Occurs when the user releases a key 
while an object has the focus. 

LBound Function: Returns the smallest available 
subscript for the indicated dimension of an array. 

LCase Function: Returns a string in which all 
letters of an argument have been converted to lowercase. 

Left Function: Returns the leftmost n characters of 
a string argument. 

Len Function: Returns the number of characters in 
a string expression or the number of bytes required to 
store a variable. 

LinkClose Event: Occurs when a DDE conversa- 
tion terminates. 

Link Error Event: Generated when an error occurs 
during a DDE conversation. Recognized as the result of a 
DDE-related error that occurs when no VB code is being 
executed. The error number is passed as an argument. 
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LinkExecute Event: Occurs when a command 
string is sent by a destination application in a DDE 
conversation. The destination app expects the source app 
to perform the operation described by the string. 

LinkNotify Event: Occurs when the source has 
changed the data defined by the DDElink, if the LinkMode 
property of the destination control is set to 3 (Notify). 

LinkOpen Event: Occurs when a DDE conversa- 
tion is being initiated. 

Load Event: Occurs when a form is loaded. 

LoadPicture Function: Loads a picture into a 
form, picture box, or image control. 

Loc Function: Returns the current position within 
an open file. 

LOF Function: Returns the size of an open file in 
bytes. 

Log Function: Returns the natural logarithm of a 
number. 

LostFocus Event: Occurs when an object loses the 
focus, by a user tabbing to or clicking on another object, 
or by using the SetFocus method to change the focus. 
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Method: A task an object can perform. Unlike a 
subroutine, methods are internal to an object and nor- 
mally perform a task related to that object. 

Mid Function: Returns a string that is part of 
another string. 

Minute Function: Returns the minute portion of 
the specified time. 

MIRR Function: Returns the modified internal rate 
of return for a series of periodic payments and receipts. 

Month Function: Returns an integer between 1 
and 12, inclusive, that represents the month of the year 
for a date argument. 

MouseDown Event: Occurs when the user 
presses a mouse button. 

MouseMove Event: Occurs each time the user 
moves the mouse pointer to a new onscreen position. 

Mousellp Event: Occurs when the user releases 
a mouse button. 

Multiple-Tier: Client/server database architecture 
used to process SQL statements the app sends. The 
remote database processes the statements and returns 
the results. 



Now Function: Returns an encoded value repre- 
senting the current date and time. This function is most 
useful as an argument for other system clock functions. 

NPer Function: Returns the number of periods for 
an annuity based on periodic, constant payments and a 
constant interest rate. 

NPV Function: Returns the net presentvalue of an 
investment based on a series of periodic payments and 
receipts and a discount rate. 

Object: A user interface element you create on a VB 
form by using a toolbox control. An object is a unit in VB 
that can encapsulate both code and data. VB objects can 
have properties, methods, and events. 

Object-Oriented Programming (OOP): 

A programming technique that lets you work with self- 
contained collections of data structures and routines that 

can interact with other objects. 

Oct Function: Returns text that represents the octal 
value of the decimal argument. 

OLE Automation: Creates programmable objects 
and applications other apps can call. It is the first step 
toward producing truly reusable software components. 

OLE Control: Custom controls with a visible 

interface. 

Open Database Connectivity (ODBC): 

A method of communicating with clienl/server databases 
in Visual Basic. ODBC drivers are classified as single tier 
or multiple tier. 
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Paint Event: Occurs when a form or picture box is 
notified to repaint its display. 

Partition Function: Returns a string indicating 
where a number occurs within a calculated series of 
ranges. 

PathChange Event: Occurs when the path 
changes by setting the FileName or Path properties. 

PatternChange Event: Occurs when the file 
listing pattern changes by setting the FileName or Pat- 
tern properties. 

Pmt Function: Returns the payment for an annuity 

based on periodic, constant payments and a constant 
interest rate. 

PPmt Function: Returns the principal payment for 
a given period of an annuity based on periodic, constant 
payments and a constant interest rate. 

Procedure: Synonymous with the term "subrou- 
tine" (see definition). 

Professional Edition: VB for Windows applica- 
tion development. It includes the features of Standard 
Edition plus additional custom controls and Crystal Re- 
port Writer. 



Program Statement: Akeywordin 
does the work of the program. 



Project: Describes the files associated with a program 
you develop using VB. 

Property: A characteristic of a particular object you 
can change either in Visual Basic's Properties window at 
design time, or by accessing an object's property from VB 
code at run time. 

PV Function: Returns the present value of an 
annuity based on periodic, constant payments to be paid 
in the future, and a constant interest rate. 

QB Function: Returns the RGB color code corre- 
sponding to a color number. 

QueryUnload Event: Occurs before a form or 
application closes. When an app is closing, the 
QueryUnload event occurs first in an MD1 form and then 
in all other forms. 

Rate Function: Returns theinterest rate perperiod 
for an annuity. 

Record: A collection of one or more fields containing 
related information. 

Relational Database: A database that orga- 
nizes data and relations between the data in tables, made 
up of columns and rows of data (Visual Basic refers to 
columns as fields, and rows as records). Relational data- 
bases allow the definition of data structures, storage and 
retrieval operations, and integrity constraints. Certain 
fields may be designated as keys, which means that 
searches for specific values of that field will use indexing 
to speed them up. Records in different tables may be 
linked if they have the same value in one particular field 
in each table. 

Reposition Event: Occurs after a record becomes 
the current record. 

Resize Event: Occurs when a form first appears or 
the size of an object changes. 

Resource File: Contains bitmaps, text strings, or 
other data you can change without editing code. 

RGB Function: Returnsalongintegerrepresenting 
an RGB color value. 

Right Function: Returns the rightmost n charac- 
ters of a string argument. 

Rnd Function: Generates a random number be- 
tween zero and one. 

RowColChange Event: Occurs when the cur- 
rently active cell status is transferred to a different cell. 

Run Time: Describes the condition of operations 
executing while a program is running. Opposite of design 

time. 

Scroll Event: Occurs while a user drags the box on 
a scroll bar. 
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Second Function: Returns the second portion of 
the specified time. 

Seek Function: Returns the current file position. 

SelChange Event: Occurs when the selected range 
changes to a different cell or range of cells. 

Sgn Function: Returns -1 if n is less than zero, 
if n is zero, and +1 if n is greater than zero. 

Shell Function: Runs an executable program. 

Sin Function: Returns the sine of the angle n. The 
angle n is expressed in radians. 

Single-Tier: A driver designed for use with remote 
desktop database management systems. The SQL state- 
ment issued to the ODBC driver is converted to low-level 
instructions that operate directly on the database files. 

SLN Function: Returns the straight-line deprecia- 
tion of an asset for a single period. 

Source Code: VB statements that are instructions 
for your program to follow. 

Space Function: Returns a string consisting of a 
specified number of spaces. 

Spc Function: Skipsaspecifiednumberof spaces in 
a Print # statement or Print method. 

Sqr Function: Returns the square root of n. 

Standard Controls: Contained in the VB EXE 
file. 

Standard Edition: Allows programmers to create 
applications for Microsoft Windows 95 and NT. Available 
only in a32-bitversion. Includes all intrinsic controls plus 
the grid, outline, and bound controls, and the common 
dialog control. 

Standard Module: Can contain public or mod- 
ule-level declarations of types, constants, variables, ex- 
ternal procedures, and public procedures. 

Str Function: Converts a numeric value to a string. 

StrComp Function: Returns a Variant that indi- 
cates the result of the comparison of two string argu- 
ments. 

String: A data structure composed of a sequence of 
characters. 

String Function: Returns a string whose charac- 
ters have a given ANSI code or are all the first character 
of a string expression. 

Structured Query Language (SQL): A 

database sublanguage used in querying, updating, 
and managing relational databases. An accepted stan- 
dard of database technology, SQL can be embedded in 
applications. 



Subroutine: A unit of source code that can be called 
from other parts of the source code. After a subroutine 
executes to completion, Visual Basic passes control to the 
code that called the subroutine. The term is synonymous 
with the term "procedure." 

Switch Function: Evaluates a list of expressions 
and returns a value or an expression associated with the 
first expression in the list that is true. 

SYD Function: Returns the sum-of-years' digits 
depreciation of an asset for a specified period of time. 

Syntax Error: A statement that violates one or 
more rules of the language. 
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Tab Function: Used with the Print* statement and 
the Print method to move to the position at which the next 
character is printed. 

Table: A logical grouping of related information 
arranged in rows and columns, in a similar fashion as a 
spreadsheet table. 

Tab Order: The order in which controls receive the 
focus when the user presses the Tab key. 

Tan Function: Returns the tangent of the angle n. 
The angle n is expressed in radians. 

Telephony: The conversion of sound to electrical 
signals, its transmission to another location, and its 
reconversion to sound, with orwithout the use of physical 
connecting wires. 

Third-Party Add-In: A tool for use in the design 
environment. Products in this category range from simple 
tools for aligning controls on forms to complex tools that 
create an entire app structure. Third party add-ins are 
less risky than third party controls because they are not 
tied to your application. 

Third-Party Control: A self-contained compo- 
nent that extends VB app functionality, such as spell- 
ing checkers, bound combo boxes, and multimedia 
components. 

Time Function: Returns the current time from the 



Timer Event: Occurs when a preset interval for a 
timer control has elapsed. 

Timer Function: Returns the number of seconds 
that have elapsed since 12 a.m. 

TimeSerial Function: Returns the time serial for 
a specific hour, minute, and second. 

TimeValue Function: Returns the time repre- 
sented by a String argument. 



UBound Function: Returns the largest available 
subscript for the indicated dimension of an array. 

UCase Function: Returns a string in which all 
letters of an argument have been converted to uppercase. 

Unload Event: Occurs when a form is about to be 
removed from the screen. 

Updated Event: Occurs when an object's data has 
been modified. 

Uniform Resource Locator (URL): AWorld 
Wide Web address. 

User Interface (Ul): The portion of the program 
with which the user interacts. Windows has a graphical 
user interface (GUI), compared to DOS's command-line 
interface (see definition of graphical user interface). 

Val Function: Converts a string value to a number. 

Validate Event: Occurs before a different record 
becomes the current record. 

Variable: A container used to temporarily hold data 
in the program. Numbers, names, and property values 
can be stored in variables. 

Variant: Aspecial data type that can contain numeric, 
string, or date data as well as the special values Empty and 
Null. The Variant data type is the default for Visual Basic. 
It is the data type that all variables become if they are not 
explicitly declared as another type. 

VarType Function: Returns a value that indi- 
cates how a Variant data type is stored internally by Visual 
Basic. 

VBX Custom Control: A custom control that can 
be used only with 16-bit versions of Visual Basic. 
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Weekday Function: Returns a whole number 
representing the day of the week. 

WYSIWYG: Acronym for "What you see is what you 
get." An onscreen display method that shows documents 
and graphic characters as they will appear when printed. 

Year Function: Returns the year portion of the 
specified date. 

Z-Order: A relative ordering that determines how 
controls overlap on a form. The first control in the form 
description establishes the bottom of the z-order. Con- 
trols that appear later in the form description are higher 
in the z-order and thus overlap controls that are lower in 
the z-order. 
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Your Showcase For 
Programming Tools 



This special 
advertising section 
highlights tools 
designed specifically 
for Visual Basic 
programmers. If you 
are interested in 
placing an ad in 
this section, please 
call 800-848-5523. 
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This disclaimer 
covers all trademark 
references in this 
section. Advertisers 
recognize the 
trademark rights of 
other vendors. 
Specifically, 
QuickBasic and 
Visual Basic are trademarks of 
Microsoft Coiporation. PowerBasic 
is a trademark of Spectra Publish- 
ing. True Basic is a trademark of 
True Basic, Inc. 



CRYPTO++ SDK 

THE ULTIMATE SOFTWARE CONTROL 
& COPY PROTECTION TOOLKIT. 

Visual Basic, Visual C++, C++ Builder, 
Borland C++, Delphi, Win 16 & 32, Date & 
Run Limits, Create Trialware, Limited 
Installs, Try Before You Buy, Self Expiring 
Betas, Increase Your Sales, Secure Web 
Distribution, Best Software Protection. 
YEAR 2000 COMPATIBLE! 
ROYALTY-FREE. FREE 1 YEAR SUPPORT 
Download the complete package right now! 

www.sampson-multimedia.com/sdk/ 



The Development Exchange 



www. vb-zone.com 

The most comprehensive 
source of technical and 
how-to information on 
Visual Basic programming. 

r m ' 

m mm pubi 



j fawcette 
'technical 
publications 



VB5.COM 

Online Catalog for Visual Basic Developers. 
The best deals on Visual Basic 5.0, ActiveX 
Controls, Internet Tools, Training Materials, 
and more! Register online to win a free copy 
of Mastering Visual Basic 5.0! Too busy to 
surf? Send a request to info@VB5.COM for 
our complete online catalog. Secure Online 
Ordering! 

http://www. vbS.com 
info@vbS.com 



Electronic Payment Software 

PC-Charge™ makes it easy to process credit 
cards, debit cards and checks in your 
Windows applications. Sales, Credits, Voids, 
everything you need to replace that 
bankcard terminal. PC-Charge is widely 
certified and will accept all card types, Visa, 
MC, Amex, etc. 

ActiveX controls and ASP solutions make it 
easy to integrate into your applications and 
Internet/Intranet solutions. Free demo at 
web page. Starts at $295. 

GO Software, Inc. 
42 W. Montgomery XRds., Savannah, GA 31406 
TELE: (800)725-9264 (912)925-4048 
FAX: (912)927-0214 
http://www.gosoftinc.com 



VB 5.0 & Oracle Training 

Real world Client/Server development 
using VB5 & Oracle • ActiveX Controls and 
ActiveX Document development • N-Tier 
Application Design • Advanced class 
modules • Win32 Callback • Internet 
Controls • Data Access using ODBC, 
ODBC Direct, RDO • Porting your Client/ 
Server Application to the Internet. 

Accelerated Computer Training 
TELE: (888) GOTO-ACT or (248) 489-SS8S 
FAX: (248) 489-4078 
E-mail: action@gotoact.com 
www.gotoact. com 



209 Hamilton Avenue 
Palo Alto, Ca 94301-2500 
http://www. windx.com 



Zip/Unzip Components 

The Xceed Zip Compression Library lets you 
easily add Zip and Unzip to your Windows 
applications. Includes all 16 and 32-bit VBX, 
OCX and VCL controls for 199.95 $US. New 
Xceed Zip Self-Extractor add-on lets your 
apps create customized self-extracting Zip 
files too. Visit www.xceedsoft.com/vbpj and 
get the free trial version today! 

Xceed Software Inc. 

TELE: (800) 868-2626 or (814) 442-2626 
http://www.xceedsoft.com/vbpj 



VISUAL BASIC 



Subscribe Now! 

Visual Basic Programmer's Journal is the 
most comprehensive source of information 
on Visual Basic. No other magazine 
covers VB in as much depth or provides 
as much useful information on Windows 
development. Your subscription will 
include twelve monthly issues plus two 
special issues in 1998 for only $22.95 — 
that's a savings of 66% off the annual 
newsstand cover price! To subscribe now 
call 800-848-5523. 

For customer service inquiries on your 
current subscription, please call 
800-848-5523 or send a fax to 650-321-38U 



FIB 



FAWCETTE 
TECHNICAL 
PUBLICATIONS 



Fawcette Technical Publications 
209 Hamilton Ave. 
Palo Alto, Ca 94301-2500 
http://www. windx.com 



Consulting 
& 

CareerLink 

For more information 
or to place your 
CareerLink ad 
Contact Lilly Gutierrez 
at: (415) 833-7121 
or email: 
lgutierrez@fawcette.com 



CoreerLink.VBPJ 



http://www. windx.com 



Be In Control! 

Nocx controls are VB source code 
replacements for commonly used custom 
controls. Super flexible and lightweight, 
Nocx controls allow you to go beyond the 
limitations of other controls. 
Visit www.NOCX.com for more informa- 
tion and demos. 

Now Shipping nocxGrid 
Seidel Software Systems Inc. 
TELE: (905)706-6154 
Do It With VB! 



Zip Developer's Tools 

Look to Inner Media for all of your ZIP/ 
UNZIP development needs: 

• DynaZIP is the industry leader for zip 
compatible royalty-free compression. 

• Active Delivery is the answer when you 
want to add self-extracting zip file creation 
to your applications. 

All products have a 30-day no risk guarantee. 

Inner Media, Inc. 
60 Plain Road, Hollis, NH 03049 
TELE: (800) 962-2949 or (603) 465-3216 
FAX: (603) 465-7195 
www.innermedia.com 



E-mail made Easy 
with 

idsMail 

IDSMail is a universal E-mail send/receive 
programming component that supports 
any mail systems based on SMTP/POP3 
(Internet mail), MAPI, VIM, MHS, or 
Banyan VINES. This includes mail clients 
such as Lotus Notes & cc:Mail, Microsoft 
Outlook, Exchange, and MS Mail, Novell 
Groupwise, Banyan BeyondMail, and all 
Internet mail clients (Eudora, MS Internet 
Mail, etc.). IDSMail provides full support 
for file attachments and can even ZIP 
your attachments automatically. It works 
with all versions of Visual Basic and can 
also be used within MS Access, Excel, 
Word, Visual C++, etc. 



ids 



Intuitive Data Solutions 
305 Vineyard Town Center 
Morgan Hill, CA 95037 
TELE: (408) 778-1376 FAX (408) 776-1267 
http://www.intuitive-data.com 



Online VB Training 

Combine self-paced learning with online 
training for great value! Learn Visual Basic 
at your own PC from a Microsoft Certified 
Trainer using excellent study materials, 
online conferences with instructor, chat 
sessions, e-mail access to instructor, 
discussion forum and more. 

Educational Computing Services 
TELE: (502) 897-3791 
FAX (502) 897-7330 
www.classtime.com 
E-mail: ecs@classtime.com 



PLC OCX & DDE I/O Servers 

NT/95 OCX DRIVERS FOR ALLEN-BRADLEY, 
MODICON, GE-FANUC and OMRON 
IN-GEAR 32 ActiveX controls supercharge 
Visual Basic, C++, Excel'97 or Access for 
real-time control. 

Use IN-GEAR 32 DDE I/O SERVERS for 
SCADA/MMI packages. Visit our web site for 
IN-GEAR specs, demos and support. 
CimQuest, Inc. Products Group 
1015 Route 113, Suite 325 
Phoenixville, PA 19460 
TELE: (610) 935-8282 FAX: (610) 935-1902 
www.cimquest.com 
E-mail: vbx@cimquest.com 
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Bar Codes from 
Visual Basic 



Special Application Inclusion pricing available for developers. 



kTM 



Or from any font based 
Windows program using 
BarFont™ for Windows'" 

This is a program to print bar codes using 
bitmaps, metafiles, or TrueType fonts on 
dot matrix, LaserJet, and DeskJet printers. A 
DLL is furnished for printing from within 
VB or other languages. $199 list price. 



Also Available: 

• Menu Driven Labeling Software 

• Bar Code Readers (attach to kybd) 

• Portable Bar Code Readers 

• Laser Scanners, Wands, and CCDs 

• Cordless Radio Frequency Readers 

• Thermal Transfer Label Printers 



ORTHINGTON 



DATA SOLUTIONS 



Direct from the Manufacturer/Developer 

30 Day Money Back Guarantee 

800 Technical Support 

Free UPS Blue Shipping in the USA 

Reseller Inquiries Invited 

All Items in Stock and Shipped the Same Day 

Call for our Free 28 page Color Catalog 



Worthington Data Solutions 
3004 Mission Street, Santa Cruz, CA 95060 
TELE: (800)345-4220 or (408)458-9938 
FAX: (408)458-9964 
www.barcodehq.com 



300 Fast Functions! 

Stamina™ (formerly Muscle32™) is a 
function library written in tight 32-bit ASM.. 
Sort, search, convert, parse, average... 
300+ routines for managing disks, files, 
strings, arrays and bits, all in about 70K of 
code! Unicode-aware for best access to VB 
strings, many routines exposed via OLE. 
Only $199, no royalties (call for Muscle 
upgrade info). 

MicroDexterity, Inc. 
Toll Free: 888-891-0700 (734-453-5872) 
www.microdexterity.com info@mdxi.com 



New VB Internet Training 

New modular Visual Basic curriculum 

now available for instructor-led 
training via the Internet. Get direct 
access to subject matter experts. Multiple 
course offerings fit your schedule, at 
affordable rates, to meet your specific 
needs. Call us now! 

Grace Technology Institute, Inc. 
(800) 594-0328 (U.S. and < 
781-863-7232 
www.graceti. com 




CflifBefLinh.VBPJ Recruitment and Consulting Section for Windo ws Developers 

Address: http://www.windx.com 
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Visual Basic/SQL Programmers 

Solomon Software is a leading developer of 
Windows, Client/Server, and SQL-based ac- 
counting software for middle market businesses. 
We invite talented IS professionals to explore 
"Careers with Solomon" on our web site for more 
information on our job opportunities and excel- 
lent compensation and benefits package. 
Solomon Software, Dept. VBP 

P0 Box 414 
Findlay, OH 45839 
FAX: 419-424-3400 
email: mjoseph@solomon.com 



http:// www.solomon.com 



High tech jobs. 
www.dice.com 



Data processing 
i n dependent 
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Don't gamble with qour job search. Use DICE, 
http:/ / www.dice.com 



Programmers 

We're looking for bright, enthusiastic, self- 
starting people who want to work in an excit- 
ing, fast-paced environment using the latest 
technology and products. We are currently 
seeking professionals with strong Visual Ba- 
sic, C++, and OOD skills. If you fit the de- 
scription, or have good IS background and are 
looking for an exciting career opportunity 
with one of the fastest growing software com- 
panies, send, fax, or email your resume to: 

Sheridan 

Sheridan Software Systems, Inc. 

Sheridan Consulting Group 

Director of Recruitment, Ref #2700 
35 Pinelawn Road, Suite 206E 

Melville, NY 11747 

FAX: 516-753-3661 
email: recruiter@shersoft.com 



http://www.sr 



VB Consultants Needed 

Spectrum Concepts, an information technology 
consulting firm providing leading-edge consult- 
ing expertise since 1979, is looking for Visual 
Basic developers to work ON-SITE at our cli- 
ents in the NY, NJ, and PA areas. We have many 
immediate long-term consulting needs. Please 
contact Michael Cohen at x248. 

Spectrum Concepts Consulting, Corp. 

150 Broadway, Suite 600, Dept. VB 
New York, NY 10038-4493 
TELE:(212) 791-4800 FAX:(212) 791-6639 



http:// www.sconcepts.com 



great jobs 
& career info 

• Latest job listings from Start-ups to 
Fortune 500 companies e-mailed 
directly to you. 

• Stay informed of industry 
demands. y ^S^ 
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A Community of"Software Develops 



http:// www.developers 1 .net 



Looking for Experienced Windows Developers? 

You're Not Alone! 




Everyone we know is looking for experienced Windows, Internet and 
Intranet, Visual Basic, and C/C++ programmers 

That's why we launched CareerLink.VBPJ, a new recruitment and consulting section in Visual 
Basic Programmer's Journal. Now you can alert 115,000 developers to job opportunities for 
pennies— your most efficient recruitment resource next to word-of-mouth. 

CareerLink sections are available in Visual Basic Programmer's Journal, Microsoft Interactive 
Developer, and on the FTP Web site, The Development Exchange. You can run ads or listings in 
all of these sections. Don't wait, call now for rates. 

Check out the new CareerLink online at http://careerlink.windx.com 



FAWCETTE 
TECHNICAL 
PUBLICATIONS 

Fawcette Technical Publications 

209 Hamilton Avenue 
Palo Alto, CA 94301 
Fax: (650) 853-0230 



For information on 
how to advertise in 
CareerLink contact: 

Visual Basic Programmer's Journal: 
Lilly Gutierrez ... „__, 

650-833-7121 CdfeerLmk.VBPJ 

lgutierrez@fawcette.com 



The Development Exhchange: 
Fferdon@fawcette.com 



Microsoft Interactive Developer: 

CareerLink J 

lgutierrez@fawcette.com 




UCTIVITY 

Training that Develops the POWER in Power User 



(He**** 




Application 
Developers 



TRAINING 
COMPANY 



1-800-578-2062 or Fax (612) 942-8452 

7151 Metro Boulevard • Suite 175 • Minneapolis, MN 55439 

Application Developers Training Company is a member of the Microsoft Solution 
Provider network and provides services and training for Microsoft product users. 



Are you the Microsoft Office expert in your group? 
Do you want to become this person? 

Introduction to Microsoft Access Programming will help 
power users like you take your existing data from word 
processing and spreadsheet programs and organize it into a 
database. You'll learn to: 

• Automate routine tasks. 

• Create mailing labels with ease. 

• Create reports. 

• Master Microsoft Access macros. 

Introduction to Visual Basic Programming will give an 
experienced power user the fundamentals they need to start 
programming in Visual Basic for Applications (VBA), the 
inter-application development language of Microsoft Office 97. 
Learn how to: 

• Create forms and menus. 

• Use OLE Custom Controls (OCXs). 

• Write event functions and procedures. 

Both seminars are for highly motivated, more technical power 
users who understand that higher productivity with Microsoft 
Office means that some programming might be involved. 

For Experienced Developers 

Application Developers also offers intermediate and 
advanced programming seminars. Full course descriptions, 
pricing, and scheduling is available by calling our toll free 
telephone number or visiting our web site. 

Seminar Locations 

Atlanta, Boston, Chicago, Cincinnati, Dallas, Denver, 
Houston, Los Angeles, Minneapolis, New York, San Jose, 
San Francisco, Toronto, Vancouver, Washington DC, 
and others. 



Che<k out our web site at 
http://www.appdev.com 
or call 1-800-578-2062 
for more information. 



Microsoft and Visual Basic are registered trademarks 
of Microsoft Corporation. 
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Ow/y Sheridan's 
DataWidgets30/efs 
yow print or publish 
everywhere, all with 
a single line of code. 

Offering the ultimate in flexibility and control 
over data storage, retrieval and display, Data 
Widgets' DataCrid™ is still the fastest full-featured 
grid and easiest solution for building manageable 
and familiar front ends for database applications. 

Use the Interactive Grid Editor, a true WYSIWYG 
editor, to design, save and restore multiple grid 
styles and report layouts. 

New Features Include: 

■ Print to paper 

■ Automatically exports pure HTML 
(Platform and browser independent) 

• Export to delimited files 

■ Save and restore layouts at 
design and run time 

■ Fully integrated masked editing 

■ Full IntelliMouse support 

■ Three Data Modes: 
Bound, Unbound and 
Add Item 

■ Multiple column styles 

■ Drag and Drop of cells 

■ Individual fonts, colors and pictures for 
columns, groups, rows and cells 

■ ToolTips 

■ Multiline rows 
I • Makes the perfect ListFJox 

■ and much, much more 

Data Widgets 3.0, with 16 and 32-bit ActiveX 
Controls, also includes Data Combo, Data Drop 
Down, Data Option Set, Data Command, Enhanced 
Data Control. 

The Intelligent replacement for Visual 
Basic's in box Grid. 

Order Data Widgets now by calling 
1-800-VB DIRECT or download a free trial 
version from our website 
http://www.shersoft.com 



Data 

Widgets 30 



Manufacturer's List Price: 

$295.00 



